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. TITLE TSKSHO — Keyboard SHOW Command Routines 

. ENABL LC 

. DSABL GBL 

. CSECT TSKSHO 



TSKSHO; 



TSKSHO is the portion of TSKMON that contains the code 
to implement the SHOW command. 



Copyright 1978, 1979, 1980, 1981, 1982, 1983, 
S?{H Computer Systems, Inc, 
Nashville, Tennessee 



1984, 1985. 



Macro calls 

. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 
. MCALL 



. CSISPC, . TTOUTR, . SRESET 

. READW, . TTYIN, . TTYOUT, . PURGE 

. CSIGEN, . SAVEST, . REOPEN 

. GTLIN, . GTIM, . DATE, . SPFUN 

. PRINT, . CLOSE, . LOOKUP 

. WRITW, . ENTER, . EXIT 

. SERR, . HERR, . FPROT, . GVAL, . PVAL 



Global definitions 

. GLOBL TSKSHO, CMDHD, CMDOFF, KDOCIN, SKPSPC, UCLCMD 

. GLOBL DORUN, CMBFRM, CMDDSN, STLGCN, DATTIM, PRGALL 

. GLOBL DLCEMT, ALCDEV, CMDSHO, CMDSET, CMDWHO, CMDMEM, CMDUSE 

Global references 

. GLOBL AF*DUP, AF*IND, AF*UCL, AF*SET, AF*CCA, TSXVRS, AF*NPW 

. GLOBL CKCLUS, SHOKEY, HAN IOC, SYPSWD, TM*NSP, TM*SL1, TMIiOFF, TMfON 

. GLOBL TM*KED, TM*TTY, TM*SUB, TM*NO, VMXMSG, VMAXMC, VMXMRB 

. GLOBL PEKEMT, PEKADR, PEKSIZ, TM*NNR, CDBUF, CDGET, TM*IN1, TM*IN2 

. GLOBL CLRPRV, OPTLST, PESO, PFCO, PVNPW, TSXVER 

. GLOBL PO*SYS, PO*SPV, PRIVSO, PRVOPT, KBPARN, PARNNL 

. GLOBL TM*PVA, TM*PVC, PRIVAO, EM*CNO, EM*CPO, EM*CAP, RSTPRV 

. GLOBL CHKEQ, CKACOJ, PO*OPR, CKSYPV, AF*BYA, TM*PVL, DMYDEV, AFfTPO 

. GLOBL INSTBL, INGADR, INGEMT, IIBUF, II*NAM, II$FLG, II**SZ, EM*NAD 

. GLOBL INSTBN. AF*SCA, AF*NOW, AF*MEM, PO*DBG, PRIVCO, PRVLST 

. GLOBL ABRTAD, ABRTCD, CINFLG, $VNOTT, VPRILO, VPRIHI, II*PRV, II*NPV 

. GLOBL TM*RD1, TM«RD2, TM*LCL, TM*GBL, SPACE!, RC*OWN, RC*CNT, RC*BAS 

. GLOBL RC*EXC, RC*AGE, RC*AEP, RC*USE, RC*FLG, RC*GBL, RC*NAM 

. GLOBL RC*LEN, RC*PVT, RCBBAS, RCBEND, RC**SZ, SHRRCB, SHRRCN 

. GLOBL LP*SPD, LP*PAR, LP*ODD, LP*7BT, EM*ICL, PROSLT, RC*LCG 

. GLOBL EMfNPD, EM*ILN, EM*CIP, EM*NSF, EM*IUN, EM*CLN 

. GLOBL EM*ILN. EM*ACL, EM*TSL, EM*CLB, EM*NSL, EM*SLT, EM*SLW 

. GLOBL SLKDON, SLKDOF, EM*UIO, TM*PR1, TM*PR2, TM*LPR, TM*HPR 

. GLOBL TM*HPE, TM*CNG, TM*CDS, TM*CEN, TRMHDl, TRMHD2 

. GLOBL OPRTXT, CLLINE, LCLTXT, REMTXT, TM*AUT, CLFREE, CLUNIT, CLVERS 

. GLOBL TM*CLO, TM*CL1, TM*CL2, TM*CL3, TM*CL4, TM*CL5, TM*CL6, TM*CL7 

. GLOBL TM*CLS, QHDMSl , QHDMS2, DVSHHl , DVSHH2, DVSHH3, SYASHD, DKASHD 

. GLOBL TM*NAD, ALCHDl , ALCHD2, TM*NSD, TM*SDN, LNAME, TM*C13 

. GLOBL CORUSR, LSW, «CTRLO, SERFLG, lOABFL, *CHACT, fSTSNG 

. GLOBL LSTHL, LCLUNT, FSTIOL, LSTIOL, CL*LIX, CW*PRO, C0NFG2 

. GLOBL CL$RQH, CL*WG!H, MAXALC, ALCTBL, ALCEND 
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GLOBL AD*DMU.. AD? JOB.- AB**SZ, UCIDEF, HANCHN 

GLOBL NEDCHR< LOUTIR, LI.NIR* LINRTS, CLOTIR 

GLOBL CO$DEFi CL*COL, LCDTYP, SOPALC, SOPDAT, SOPTIM 

GLOBL UTRPAD, JSWLOC, ERRLOC, MAXMEM, MAXPRI 

GLOBL USRSTK, *KINIT, CFSTK. MXJMEM, DFJMEM, EM*HNI 

GLOBL SPUBUF, SXBPNT, VSWPFL, MXJADR, CLSFCH 

GLOBL TMTOTH, TMTOTL, TMUSRH, TMIOWH, LDMNT, EM*CSE 

GLOBL TMSWTH, TMIDLH, TMIOH, TMSWPH, LDCLEN 

GLOBL WILDFL, $NOIN, *NOWTT> $HITTY 

GLOBL TECO, EDIT, RED, K52, *1STLG> *DIBOL 

GLOBL SH*VAL. SH*NAM, SH**SZ, SH*RTN, SH*FLG 

GLOBL SO*NVL, SO*DCT. SO*NO, HANENT, HANSIZ 

GLOBL H. CSR, H. VEC, DV3TAT, SFID, ACRSPD, HANPAR, LST3PL 

GLOBL HAZEL, HAZLFL> HAZLNO, «MLOCK, HDT, GETKCH 

GLOBL LINBUF, LIMNXT, LSTACT, PRGTOP, PRGSIZ, KMNHI 

GLOBL KMNTOP, KMNPGS, KMNSTK, KMNSTR, CXTPAG, FSTIOL 

GLOBL LINPNT, LINCisJT, LACTIV, LRDTIM, CS*RON 

GLOBL LOTBUF, LOTNXT, LOTPNT, *VTESC 

GLOBL LOTSIZ, LOTSPC, LCOL, *SLKED, ESC 

GLOBL LAFSIZ, LFWLIM, LINCUR, NUMON, ILSW2 

GLOBL VPRIDF, VPRIVR> *DBKMN 

GLOBL *CARUP, DOASGIM, UKMNAM, *UKMON, LSW9 

GLOBL LSUCF, *CCLRN, EM*NUK, S*QMIO, S**RUN 

GLOBL KL3CLR, *PRGLK, LSW5, PVON, S*SPND, *AUTO 

GLOBL S*TWFN, StTTFN, S$OTFN, S«IOFN, S*OTLO 

GLOBL LSTDL, FSTDL, $DETCH, UMSYTP, S*TTSC 

GLOBL *DISCN, LPROJ, LPROG, LUNAME, S*RT. S«LOW 

GLOBL LCPUHI, LCPULO, LCONTM, *CTRLSi *SPLJB, TXTCL 

GLOBL STPFLO, TOTON, USPLCH, SPLCHN, S*HICP, TXTCl 

GLOBL S*INWT, S*OTWT, S*TMWT, S*SFWT, S9600 

GLOBL S*MSWT, CFBUF, CFEND, CCLSAV, KMNCHN 

GLOBL MINTIMi LSECPT, MAXSEC, *EMTTR, VCSHNB 

GLOBL OKFILE, OKFEND, *CLTST, UCISPC, MHNSIZ 

GLOBL CASTBR, CASCBR, CASTBW, CASCUP, MHNSMS 

GLOBL CASTRO, CASTWO, CLTOTL, CO*DTR, CLSFSP 

GLOBL CO*CR, CO*FF, CD*FFO, CO*LC, CO*TAB, CO*CTL 

GLOBL CO*LFI, CO*LFO, CO*BNI, CO*BNO, CL*OPT 

GLOBL CL*LEN, CL«SKP, CL*WID, CL*LIN, PHYMEM 

GLOBL LJSW, CTRLTT, NEWJSW, JSTKND, VIMAGE 

GLOBL USTART, GENTOP, BOTDEV, BOTUNI, CSHALC 

GLOBL *CTRLC, LSW2, $INKMN, CHAIN, UFORM 

GLOBL *SOQO, *SGQ3, LITIME 

GLOBL MAXASN, AT**SZ, *CFABT, INDSTA, INDERR 

GLOBL RUNDEV, LNBLKS, CXTBAS, CXTWDS, UHIMEM 

GLOBL ASNTBL, *DILUP, CSHDEV, CSHDVN, LNSBLK 

GLOBL ASNEND, LSW3, LSW2S, *DUPRN 

GLOBL $FORM, *TAB, LSCCA, *CFSOT, LOFSPC, R50C0M 

GLOBL $PA0E, *SCOPE, *ECHO, *LC, *8BIT, CHKALC 

GLOBL UCHAN, *F0RM0, *CFALL, *CFDCC, *CFCCL 

GLOBL LNPRIM, LNMAP, CW*50H, CONFIG, *SUCF 

GLOBL *DOOFF, NUCHN, LRBFIL, CFIND, TALEMT 

GLOBL C. CSW, C. DEVQ, C. SBLK, NLINES, C0*8BT 

GLOBL CDtNAM, CD*DVU, CD*BAS, CD*J0B, CD**SZ, CD**UB 

GLOBL LTSCMD, LNSPAC, CFNEST, UCLNAM 

GLOBL *CFOPN, CFSEND, PBFEND, CFSP, *TTGAG 

GLOBL UFPTRP, SDSFCB, SD*DEL, CFLFL4, *UCLCF 

GLOBL SDFLAG, SD*FLK, SD*WFM, SDFORM, *UCLRN 



I 
I 
ff 



f 
I 

r 

t 
i 



i 



I 



i 

I 

f 

I 
c 
I 
f 
f 
( 
( 
f 
( 
I 
< 
( 
I 
( 

€ 
I 
< 
t 



TSKSHO 



lis 

116 
117 

lis 

119 
120 
121 
122 
123 
124 
125 
126 

1 0'7 

128 
129 
130 
131 
132 
133 
134 
135 

•!'->/ 

1 oo 
137 
138 
l3V 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 



Keyboard SHOW Command MACRO V05. 05 Friday 20-Jan-89 10:51 Page 1- 



GLOBL SDBUFl, SDBLK, NSPLDV. LD*RQN, fUCLCM, *UCLCL 

GLOBL LDNAME, LDSIZE> LDFLAG, LDBASE> LDPDEV 

OLOBL LSW8. *SGG!1, *SGQ1A, *SGQ1B, *SGQ1C, *SGQ2, *SGIIO, *SGHIO 

GLOBL *DEFER, CFCHAN, SCHAIN, LDDEVX. *SGALL 

GLOBL CFPNT, CFBLK, *QUIET, DIABFL 

GLOBL DIABNO, VT52N0, LA36N0, LA36FL 

GLOBL LSW4, KL4CLR, SDSKIP, SDBU, SD*BAK 

GLOBL *INCOR, *KED, VQUN1B> VI NT 10, VQUNIC 

GLOBL SF*BSY, SFFORM> SD«SNG, SFNMBL, NFRESB 

GLOBL SD$HLD; SF*HLD, CURPRM, PRMPNT, SF*1ST 

GLOBL LSTPRM, PRMBUF, PRMEND, CFSPND 

GLOBL SDFHD, SFFLAG, SFQLNK, CFHOLD, LOGDVU, LOGBAS 

GLOBL LCCL, *QTSET, $TECO> CD*TOP, LOGCHK 

GLOBL *WILD, ERRSEV, UERSEV, PASLIN. LOGBAS, LOGDVU 

GLOBL LSTPL, BDCB, SDCBND, VQUANO, VQUAN3 

GLOBL VQUANl, VQUNIA, VQUAN2, VHIPCT, VQUANO, VQUAN3 

GLOBL DCTRD, DCCRD, DCTWR, DCCWR 

GLOBL AT*LOG, AT$SI2, AT*DEV, AT*FIL, AT$EXT, AT**SZ 

GLOBL VCORTM, NUMDCD, KMPRMT, MXPRMT, CIDEVX 

GLOBL RDB, RDBEND, RT*DEV, RT$NAM, RT**SZ, CLDEVX, SDDVU 

GLOBL SDNAME, SDCBSZ, LSTSL, LSTATE 

GLOBL TKIVAL, CINDAT, SYSDAT, SYTIMH, SYTIML 

GLOBL BASMAP.LOMAP, HIMAP, JCXPOS 

GLOBL SliRSIZ. SRTSIZ, CSHSIZ. TKISEC 

GLOBL fSXLN, rSXSi f , GR f 1, TRGRET, LiCTX T, SUPCOD, NAMTOP, SUMS, SUCS 

GLOBL LPRG1,LPRG2, S*QUSR, S*IOWT 

GLOBL S*SPDB, S*SPCB, SFUSER, SFFILE, VT200, VT2007, VT2008 

GLOBL LCBIT, LA36, LA120, VT52. VTIOO, DIABLO, QUME 

GLOBL ADM3A, LTRMTP, LA12FL, LA12N0, VT52FL 

GLOBL VTIOFL, VTIONO, QUMEFL, QUMENO, ADM3FL 

GLOBL VT20FL, VT20N0 

GLOBL ADM3N0, SY I NDX , SYUN I T, NUMDEV, PNAME 

GLOBL OF*DEV, OFfUNT, OF*FIL, OF*FLG, SYNAME 

GLOBL OF**SZ, OT*RON, RESDEV, *TAPE 

GLOBL KMNBAS, ODTBAS, «CTRLD 

GLOBL LSW6, $SNWTT, PF*SYS, PF*IOW, *DEBUG 

GLOBL RSR, TSR, LMXNUM, LSTMX, MXDTR, ZCLR, MXCSR 

GLOBL *INDDF, *INDRN, IN*ACT, IN*CNT, IN*CMD, INDSAV 

GLOBL fPHONE, INVEC, LMXLN, MXVEC, *INIT, *DEAD, *HARD 

GLOBL ITRMTP, LMXPRM, LSW7, *INDAB, CFSTS, CF*IND, CF*QUT 

GLOBL CFABLV, MONVEC, LBSPRI, MAXPRI, MXJPRI, LPRI 

GLOBL LOGCHN, LOGFLG, LOGPTR, LOOBUF, LOGBLK 

GLOBL LF*OPN, LF*WRT, UCLBLK, UCLDAT 

GLOBL CSHHD, FC*CDX, FC*LNK, FD*NAM, UC«NDC, UC*MDC, CVTUC 

GLOBL CMDBUF, PAUMSG, RDCMD, DKSAV, SYSAV, CVTTAB, RUNHD, SEARCH 

GLOBL FKILL, ABRTCF, ACRFN, XAREA, FILNAM, NOPRG, FPRINT 

GLOBL PUSHCF, TRMSTR, FILNAM, R50DIR, R50SY, R50IND, R50SAV 

GLOBL INDACT, R50DUP, R50PIP, R50KED, R50K52, R50KEX, R50TSX, R50UCL 

GLOBL BLKO, RDERM, R50VIR, NOSTRT, RUNEMT, OVRCOR 

GLOBL BADSAV, LDNAM, NOPRG, NOC IN, SIZVAL, ASKLNM, BADCMD, KCSIBF 

GLOBL ASDEX, KCSIMS, ASNOVF, GTRD50, R50BUF, R50LD0, MNTDEV, DMTARG 

GLOBL DEADEV, CHKMNT, CHKMTX, INFOMT, NOFLAG, MTOPHD, ILLCMD 

GLOBL R50LD, INVLDN, R50DSK, ACRFIL, BDFNAM, LOGASN, MNTFUL, R50LD7 

GLOBL TSLOVF, SETHD, CSIMS2, CKPRIV, R50N0, AMBOPT, ACRDEC 

GLOBL MAXAVL, PRTDEC, DEVUNT, PNAME, HNBUF 

GLOBL ACROCT, HANBSY, CSIMSl, MISSEQ, NOIND, POPCF 

GLOBL BADPMT, BADPRI, TOTXT, CRLF, HIPRI, STLGHD, LOGCLS, R50L0G 
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SLOBL BDLGOF, SPLHLA, NOCCL, LDOPHD> PRTFIX. PRTSPC 

GLOBL DLTXT, OCTFIX, PRTTTP, NATXT, SPDTXli NOTXT, YESTXT, NINTXT 

GLOBL PRTUNM, SYHDl, SYHD2, PRTLN, SPACE2, DETTXT, SPACE3, RNMS, WTMS 

GLOBL SWPTX, LOCKTX, SPACES, PRTDC3, KBMSG, DIVIDE, PRTDC2 

GLOBL COLOO, CPUAH, CPUAL, PRTTMV, NOFIL, CMDBUFi CALUCL 

GLOBL NOUDC, DEVHDl , ASNHDl , ASNHD2, SHMTHl , SHMTH2, PRTTMD 

GLOBL CVDVNM, SPACE6, PRTBUF, PRTFNM, NONEMS, NODAT, NOLDMT 

GLOBL SUBARO, EDTFIL, RONTXT, NOTAVL, KBTX, MNFLGSi MNBPC 

GLOBL DELSPC, MNBASE, MNTOP, MONHD. MONARl , NOPMGN, PMBUSY, M0NAR2 

GLOBL NSWPMS, MAXMTX, CURMTX, CHKDLM, SPLHD, AMBOPT, INVOPT 

GLOBL DEVIDL, COAL, ALDEX, COAD, SPACTV, SPWFM, DEVIDL, SPSNG 

GLOBL COAL, ALDEX, ALDBLK, COAD, SPACTV, SPWFM, DEVIDL 

GLOBL 3PSMG, SPFUL, SPCF, SPFLK, NOFIL, SPGEMT, NOOPTT 

GLOBL BDLIN, MSGBUF, MSGEND, NOTON, GAGMSG 

GLOBL LINFRE, DJABMS, DLMSG, INVTIM, DMTALL 

GLOBL SHTMSG, AUTHFN, SPLACT, DOSTOP, OFFEMT, KILEMT, UPTMMS 

GLOBL TMTOTH, DIVSOR, TMTOTL. PRTPCT, SUMl, SUM2, SUM3, SUM4 

GLOBL SUMS, SUM6, SUM7, OTHRON, SPLPND, STPASK, SRTSMS 

GLOBL SIZEMT, ASNOVF, INVLDM, CSIMS4, MNTARG, HUPARG, R50TT 

GLOBL KMNNAM, NOKMON, CCLNAM, OTRMNT, CHKDEV, DMTSUB, CMDCCL 

GLOBL SHOHD, SUBTXT, MNTTXT, SRTTXT, TOTMMS, UMSSMS, SSRMAP 

GLOBL TSXSMS, USRMMS, JCXSMS, DZTXT, OCTPRT 

GLOBL PRTR50, PRTDAT, PRTTOD, PRTTIM, INVDEV, ALFN, R50DK 

GLOBL DETHD, DETARG, RUNMS, NOFRDL, R50M0N, INVDAT, MUL32, COAF 

GLOBL AR*PRJ, AR*PRG, AR*C0N, AR*CNT , AR*CPH, AR*CPL, AR*UNM 

GLOBL ARfDMY, AR**SZ, ARNRPB, $SLON, *SLTTY, *SLLET 

GLOBL PR rWRN, SLMXLN, $LOFCF, CSHMSG, *CARMN, VUSPHN 

GLOBL AF*HIE, AF*NOI, *NOINT, AF*PLK, AF*DBG 

GLOBL AF*IOP, «RNIOP, SHVTXl, SHVTX2, SHVTX3, SHVTX4, SJSPPN 

GLOBL VONTM, VOFFTM, VTMIN. VTMOUT, VTMLOC 

GLOBL MDMFXT, OFTTXT, ONTTXT, TMITXT, TMOTXT, TMLTXT, PHNTXT 
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Assembly constants 
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4 


000012 


5 


000015 


6 


000040 


7 


000007 


S 


000011 


9 


000014 


10 


000054 


11 


000400 


12 


132500 



LF 


= 


12 


LINE FEED 


CR 


= 


15 


CARRIAGE RETURN 


BLANK 


= 


40 


ASCII SPACE 


BELL 


=s 


07 


ASCII BELL 


TAB 


=: 


11 


HORIZONTAL TAB 


FF 


= 


14 


FORM FEED 


COMMA 


s 


54 


COMMA 


BLKWDS 


=: 


256. 


# OF WORDS IN DISK BLOCK 


WLDNAM 


= 


132500 


RAD50 /*/ (WILDCARD) 
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ti 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

14 
15 
16 
17 
IS 
19 
20 
21 



25 
26 
27 
23 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 

4e 

49 
50 
51 
52 
53 
54 
55 
56 
57 



Macro to cause a fatal error message to be printed. 

. MACRO FERR MSG 

MOV R5. -(SP> 

MOV MSG, R5 

CALL FPRINT 

MOV (SP)+, R5 

. ENDM FERR 



Macro to print a fatal error message, clean up 
and then jump to RDCMD. 

. MACRO FABORT MSG 

MOV MSG, R5 

JMP FKILL 

. ENDM FABORT 



Macro to print a warning message 

. MACRO FWARN MSG 

MOV R5, -(SP) 

MOV MSG, R5 

CALL PRTWRN 

MOV (SP)+, R5 

. ENDM FWARN 



Macro to start a standard option table. 

Name = 1 to 4 character table name. 

NA = Number of arguments per table entry. 





. MACRO 


T0LDEF 


NAME, NA 


NARGS 


= 


NA 






. CSECT 


CMDVSH 




NAME'HD: 


. WORD 


2*NA 






. ENDM 


TBLDEF 





Macro to enter an option text name and a set of parameters 

into the currently open table. 

STRNG = Ascii name 

A, B, C = Set of option parameters to store in table with name. 



. MACRO CMDDEF STRNG, A, B, C 
. CSECT NAMESH 





. ASCIZ 


/STRNG/ 








. CSECT 


CMDVSH 








. WORD 


L 




> 




. WORD 


A 






. IIF 


GE, <NARGS-2> 


. WORD 


B 


. IIF 


GE, <NAR0S-3> 


. WORD 


C 




. ENDM 


CMDDEF 







i POINTER TO NAME STRING 
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53 




' 59 




60 




61 




' 62 




63 




64 




< 65 




66 




67 




« 68 




69 


000000 


70 


000002 


< 71 


000006 


72 


000012 


73 


000016 


f 74 


000022 


75 


000026 


76 


000032 


1 77 


000036 


78 


000042 


79 


000046 


t 80 


000052 


81 


000056 


82 


00006^ 


• S3 


000066 


84 


000072 


85 


000076 


t 86 


000102 


87 


000106 


88 


000112 


< 89 


000116 


90 


000122 


91 


000126 


1 92 


000132 


93 


000136 


94 


000142 


1 95 


000146 


96 


000152 


97 


000156 


( 98 


000162 


99 


000166 


100 


000172 


« 101 


000176 


102 


000202 


103 


000206 


i 104 


000212 


105 


000216 


106 


000222 


1 107 


000226 


108 


000232 


109 


000236 


1 110 


000242 


111 


000246 


112 


000252 


< 113 


000256 


114 


000262 
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Macro to end a set of table entries. 



. MACRO 


TBLEND 


. CSECT 


CMDVSH 


. WORD 





. CSECT 


TSKSHO 


. ENDM 


TBLEND 



Define options for SHOW command 

TBLDEF SHO, 1 

CMDDEF ALL, SOPALL 

CMDDEF ALLO*CATE. SOPALC 

CMDDEF ALLO»CATIONS, SOPALC 

CMDDEF AS*SieNS, SOPASN 

CMDDEF CA^«CHE, SOPCSH 

CMDDEF C«ONFIGURATIQN. SOPCON 

CMDDEF CL, SOPCL 

CMDDEF COMttMANDS, SOPCMD 

CMDDEF CORttTIM, SOPCTM 

CMDDEF CI, SOPCL 

CMDDEF D*EVICES, SOPDEV 

CMDDEF DA#TE, SQPDAT 

CMDDEF E#RRORS. RDCMD 

CMDDEF H»IPRCT, SOPHIO 

CMDDEF INS#TALL,SOPINS 

CMDDEF I NT* I OC , SOP 1 1 

CMDDEF J*OBS, SOPJOB 

CMDDEF KEY»S, SHOKEY 

CMDDEF LD, SOPSUB 

CMDDEF M*EMORY, SOPMEM 

CMDDEF MAXMC, SOPMC 

CMDDEF MAXMRB, SOPMR 

CMDDEF MAXMSG, SOPMB 

CMDDEF MO«UNTS, SOPMNT 

CMDDEF MOD»EM, SOPMDM 

CMDDEF N«UMDC, SOPNDC 

CMDDEF PH'tONE, SOPMDM 

CMDDEF PR I »0R I TY, SOPPR I 

CMDDEF PRIL#OW, SOPPLO 

CMDDEF PRIH#I, SOPPHI 

CMDDEF PRID*EF, SOPPDF 

CMDDEF PRIV*ILEGES, SOPPRV 

CMDDEF PRIVIR, SOPPVR 

CMDDEF Q-HUEUE, SOP QUE 

CMDDEF QUANO, SOPQO 

CMDDEF QUAN1,S0PQ1 

CMDDEF QUANIA, SOPQIA 

CMDDEF QUANIB, SOPQIB 

CMDDEF QUANIC, SOPQIC 

CMDDEF QUAN2, S0PQ2 

CMDDEF QUAN3, S0PQ3 

CMDDEF REG*IONS, SOPREG 

CMDDEF RUN#-TIMES, SOPSRT 

CMDDEF S«UBSETS, SOPSUB 

CMDDEF SL*E, SOPSLE 



i 
I 
f 

c 

€ 

I 
f 



i Synonym with PHONE 
j Synonym with MODEM 



TSKSHO - 
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-Jan-S9 10: 51 Page 


115 


000266 


CMDDEF 


3P*00L, SOPSPL 


116 


000272 


CMDDEF 


SYSP*ASSWORD, 30PSYP 


117 


000276 


CMDDEF 


T-ffERMINALS, SOPTRM 


118 


000302 


CMDDEF 


TI-*ME>SDPTIM 


119 


000306 


CMDDEF 


TT#Y, SOPTRM 


120 


000312 


CMDDEF 


USE/ SOPUSE 


121 


000316 


CMDDEF 


USERS, SOP JOB 


122 


000322 


CMDDEF 


VE«RSION, SOPVER 


123 


000326 


CMDDEF 


VM, SOPVM 


124 


000332 


TBLEND 





« 
f 

€ 
I 

I 
i 
i 
€ 

c 
I 

4 

I 
( 

I 
I 



< 

I 

i 



i 

i 
i 

i 
i 

i 
c 
I 
( 
i 
i 
I 
I 
i 

i 

i 
I 
I 
( 
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Data areas 



1 

2 






3 






4 






5 


000000 


075250 014644 




000006 


100020 


6 


000010 


000000 


7 


000012 


000000 


S 


000014 


012276 


9 


000016 


000000 


10 


000020 


000000 


11 


000022 


000000 


12 






13 






14 






15 






16 






17 


000024 


015340 


18 


000026 


016420 


19 


000030 


015100 


20 


000032 


015126 


21 


000034 


062170 


22 


000036 


012500 


23 


0C0040 


063200 


24 


00004 k' 


066300 


25 


000044 


U4700 
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. SBTTL Data areas 
i Data areas 

i 

000000 HANNAH: . RAD50 /SY ddd TSX/ ;File spec for device handler 



DVEC: 


. WORD 





DCSR: 


. WORD 





R50CL0: 


. RAD50 


/CLO/ 


CDBASE: 


. WORD 





CDDVU: 


WORD 





CDBAS5: 


. WORD 





; Table 


of terminal 


; Note. 


the order of 


; of th 


e values of t 


CTLNAM: 


RAD50 


/DL / 




RAD50 


/DZ / 




RAD50 


/DH / 




RAD50 


/DHV/ 




RAD50 


/PC / 




RAD50 


/CP / 




RAD50 


/PP / 




RAD50 


/OP / 




RAD50 


/XX / 



device type names, 
the entries in this 
the CDX*xx entries as 



CDX*DL 
CDX*DZ 
CDX*DZ 
CDX«VH 
CDX*PI 
CDX*PC 
CDX*PP 
CDX*QP 



table must match the order 
defined in TSGEN. 



i 

€ 
f 
€ 

f 

f 

i 

I 

C 

4 

I 

4 

€ 

I 

I 

( 

i 

c 

i 



i 

i 



( 
I 
c 
« 
( 
c 
i 
I 
I 
I 

i 

< 
i 

i 
i 
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3 
4 

5 000046 

6 000050 

7 000054 

8 000056 

7 \J\^ >J \J\mf\/ 



10 
11 



14 
15 
16 
17 
IS 
19 



. SBTTL SHOW command 
Process the SHOW command 



000064 
000070 



12 000072 



000074 
000076 
000100 
000110 



000240 
004767 
105713 
001555 
012704 
004767 
103401 
000134 



005704 
001404 



OOOOOOG 



000000 ' 
0000000 



CMDSHO: 


NOP 






CALL 


CVTTAB 




TSTB 


@R3 




BEQ 


SOPASN 




MOV 


#3H0HD, R4 




CALL 


SEARCH 




BCS 


BDSO 




JMP 


S(R4)+ 



1 Invalid option 

> 

BDSO: TST R4 

BEQ 1* 

FABORT #AMBOPT 

1*: FABORT #INVOPT 



; CONVERT TABS AND FF'S TO SPACES 

; IF NO OPTION WAS SPECIFED WITH COMMAND, 

; TREAT COMMAND LIKE "SHOW ASSIGNS" 

; POINT TO TABLE OF SHOW OPTIONS 

; LOOK UP OPTION 

i BR IF INVALID OPTION 

i JUMP TO PROCESSING ROUTINE 



; Invalid or ambiguous option? 
, Br if inval id 
;Ambigiou5 option 
y Inval id option 



f 

I 



I 

f 



( 

f 
f 
c 
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Sn-r-ri 



3 
4 
5 
6 
7 

8 

o 

10 
11 
12 

1 T 

J. UJ 

14 
15 
16 

17 
18 
19 
20 
21 



000120 
000124 
000132 
000136 
000144 
000150 
000156 
000162 

\./ 'h^ W/ 4. / Vi'^ 

000174 
000200 
000206 
000212 
000220 
000224 
000232 
000236 





22 


OC0244 




23 


000252 




24 


000256 




2o 


0002<t>4 




26 


000272 




27 


000276 




28 


000304 




29 


000312 




30 


000316 




31 


000324 




32 


000330 




33 


000336 




34 


000344 




35 


000346 




36 


000352 




37 


000360 




38 


000364 




39 


000372 




40 


000376 




41 


000404 




42 


000410 




43 






44 
45 






46 


000412 




47 
48 
49 


000416 




50 






51 


000420 




52 


000420 




53 


000424 




54 






55 






56 






57 


000426 



004767 

004767 

004767 

004767 

004767 
004767 

004767 

004767 

004767 



004767 

004767 

032767 
001405 
004767 

004767 

004767 

004767 
000426 



004767 
000423 



004767 
000420 



SHOW ALL 



010022 

005052 

006074 

006430 

003534 
001446 

002630 

001056 

012012 



SOP ALL: 



004767 012102 



004767 006532 



011630 

010560 

0000000 OOOOOOG 

007656 

011264 1*: 

011372 

012220 



CALL 
. PRINT 
CALL 
. PRINT 
CALL 
. PRINT 
CALL 
. PRINT 
CALL 
CALL 
. PRINT 
CALL 
. PRINT 
CALL 
. PRINT 
CALL 
. PRINT 
. PRINT 

CALL 

PRINT 

. PRINI 

CALL 

. PRINT 

. PRINT 

CALL 

. PRINT 

CALL 

. PRINT 

BIT 

BEQ 

CALL 

. PRINT 

CALL 

. PRINT 

CALL 

. PRINT 

CALL 

BR 



SHOVER 

#CRLF 

SHODEV 

#CRLF 

SHOASN 

#CRLF 

SHOALC 

#CRLF 

SHOJOB 

SHOTRM 

#CRLF 

SHDCL 

#CRLF 

SHOMEM 

#CRLF 

SHOSPL 

#CRLF 

#SUBTXT 

SHOSUB 

#CRLF 

#riNTTXT 

SHDMNT 

#CRLF 

#SRTTXT 

SHOSRT 

#CRLF 

SHORE© 

#CRLF 

#PO*SYS. PRIVCO 

1* 

SHOINS 

#CRLF 

SHOPRV 

#CRLF 

SHOSLE 

#CRLF 

SHOWVM 

SOPJMP 



005626 



004526 



004767 004556 



SHOW ASSIGNS 

SOPASN: CALL SHOASN 
BR SOPJMP 

SHOW COMMANDS 

UCLCMD: 

SOPCMD: CALL SHOCMD 
BR SOPJMP 

SHOW CONFIGURATION 

SOPCON: CALL SHODEV 



i SHOW VERSION 

i SHOW DEVICES 

; SHOW ASSIGNS 

i SHOW ALLOCATIONS 

; SHOW JOBS 

; SHOW TERMINALS 

} SHOW CL 

; SHOW MEMORY 

; SHOW SPOOL 

; SHOW SUBSETS 

; SHOW MOUNTS 

; SHOW RUN-TIMES 

i SHOW REGIONS 

j System privilege? 
i Branch if not 
> SHOW INSTALL 

; SHOW PRIVILEGES 

; SHOW SL 

; SHOW VM (Base, Top and Size) 



iSHOW ASSIGNS 



i SHOW COMMANDS 



i 
I 
I 

t 
I 

r 

i 
c 
f 
f 
t 
I 
f 
( 



; SHOW DEVICES 



C 
i 
i 
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58 


000432 


004767 


001210 


59 


000436 


000413 




60 








61 








62 








63 


000440 


004767 


007430 


64 


000444 


000410 




65 








66 








67 








68 


000446 


004767 


004536 


69 


000452 


000405 




70 








71 








72 








73 


000454 


004767 


003250 


74 


000460 


000402 




75 








76 








77 








78 


000462 


004767 


000614 


79 


000466 


000167 


OOOOOOG 


80 








81 








82 








S3 


000472 


004767 


006114 


84 


000476 


000167 


OOOOOOG 


85 








86 








87 








88 


000502 


004767 


002334 


89 


000506 


000767 




90 








91 








92 








93 


000510 


004767 


007514 


94 


000514 


000764 




95 








96 








97 








98 


000516 


004767 


006306 


99 


000522 


000761 




100 








101 








102 








103 


000524 


004767 


007172 


104 


000530 


000756 




105 








106 








107 








108 


000532 


004767 


011112 


109 


000536 


000753 




110 








111 








112 








113 


000540 


004767 


004310 


114 


000544 


000750 







CALL 


SHDTRM 




BR 


30PJMF 


i SHOW 


DATE 




SOPDAT: 


CALL 


SHODAT 




BR 


SOPJMP 


; SHOW 


DEVICES 




SOPDEV: 


CALL 


SHODEV 




BR 


SOPJMP 


■> SHOW 


JOBS 





SOP JOB: 



CALL 
BR 



5H0W MEMORY 



SOPMEM: 
SOPJMP : 



CALL 
JMP 



SHOJOB 

SOPJMP 



SHOMEM 
RDCMD 



SHOW ALLOCATIONS 
SOPALC 



CALL 
JMP 



SHOALC 
RDCMD 



i SHOW 


CL 




> 

SOPCL: 


CALL 


SHOCL 




BR 


SOPJMP 


i SHOW 


INSTALL 




SOP INS: 


CALL 


SHOINS 




BR 


SOPJMP 


; SHOW 


MOUNTS 




SOPMNT: 


CALL 


SHOMNT 




BR 


SOPJMP 


i SHOW 


MODEM (ONTIM, 



J SHOW TERMINALS 



; SHOW DATE 



i SHOW DEVICES 



i SHOW JOBS 



; SHOW MEMORY 



i SHOW ALLOCATIONS 



; SHOW CL 



i SHOW INSTALL 



SOPMDM: CALL 
BR 



SHOMDM 
SOPJMP 



i SHOW MOUNTS 

TIMIN, TIMOUT, TIMLOC) 
; SHOW MODEM 



■> SHOW 


PRIVILEGES 


SOPPRV; 


CALL 


SHDPRV 




BR 


SOPJMP 


; SHOW 


QUEUE 




SOPQUE: 


CALL 


SHOQUE 




BR 


SOPJMP 



i SHOW PRIVILEGES 



; SHOW QUEUE 



I 
( 

I 
( 
I 
t 
4 
I 
C 
i 
i 
i 

i 
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116 








117 








118 


000546 


004767 


011374 


119 


000552 


000745 




120 








121 








122 








123 


000554 


004767 


011210 


124 


000560 


000742 




125 








126 








127 








128 


000562 


004767 


012042 


129 


000566 


000737 




130 








131 








132 








133 


000570 


004767 


010314 


134 


000574 


000734 




135 








136 








137 








138 


000576 


004767 


011556 


139 


000&02 


000731 




140 








141 








142 








143 


000604 


004767 


011440 


144 


000610 


000726 




145 








146 








147 








148 


000612 


004767 


000432 


149 


000616 


000723 




150 








151 








152 








153 


000620 


004767 


001022 


154 


000624 


000720 




155 








156 








157 








158 


000626 


004767 


007300 


159 


000632 


000715 




160 








161 








162 








163 


000634 


004767 


007362 


164 


000640 


000712 




165 








166 








167 








168 


000642 


004767 


007300 


169 


000646 


000707 





; SHOW 


RUN-TIMES 


i 

SOPSRT: 


CALL 


SHOSRT 




BR 


SOPJMP 


i SHOW 


SL 




SOPSLE: 


CALL 


SHDSLE 




BR 


SOPJMP 


J SHOW 


VM 




SOPVM: 


CALL 


SHOWVM 




BR 


SOPJMP 


; SHOW 


REGIONS 





SOPREG: 

SHOW 
SOP SUB: 



CALL SHOREG 
BR SOPJMP 



SUBSETS 

CALL 
OR 



SHOSUB 
SOPJMP 



i SHOW 


SPOOL 


SOPSPL: 


CALL SHOSPL 




BR SOPJMP 


i SHOW 


SYSPASSWORD 


SOPSYP: 


CALL SHOSYP 




BR SOPJMP 


; SHOW 


TERMINALS 


SOPTRM: 


CALL SHDTRM 




BR SOPJMP 


i SHOW 


TIME 



SOPTIM: 

SHOW 
SOPUSE: 



CALL 
BR 

USE 

CALL 
BR 



i SHOW VERSION 

SOPVER: CALL 
BR 



SHOT I M 
SOPJMP 



SHOUSE 
SOPJMP 



SHOVER 
SOPJMP 



Page 6- 



; SHOW RUN-TIMES 



i SHOW SL 



; SHOW VM 



; SHOW REGIONS 



i SHOW SUBSETS 



i SHOW SPOOL 



; SHOW SYSPASSWORD 



; SHOW TERMINALS 



i SHOW TIME 



i SHOW USE 



< 

f 

t 

€ 
I 

( 

I 

C 

i 

I 

< 

f 

I 

i 

( 

4 



; SHOW VERSION 



TSKSHO • 
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Page 7 




ALL 














1 
' 2 

3 
* 4 








; SHOW 


MAXMSG 






000650 


016705 


OOOOOOG 


SOPMB. 


MOV 


VMXMSG, R5 




» 5 
6 
7 

' 8 

9 


000654 


000427 






BR 


SHOVAL 










i SHOW 


MAXMC 






000656 


016705 


OOOOOOG 


SOPMC : 


MOV 


VMAXMC, R5 




i ^° 


000662 


000424 






BR 


SHOVAL 




' 11 
















12 

13 

' 14 








; SHOW 


MAXMRB 






000664 


016705 


OOOOOOG 


SOPMR: 


MOV 


VMXMRB. R5 




15 


000670 


000421 






BR 


SHOVAL 




^ 16 
















' 17 








i SHOW 


QUANO 






IS 
















19 


000672 


016705 


OOOOOOG 


SOPQO: 


MOV 


VQUANO, R5 


i Get value 


' 20 

21 
. 22 


000676 


000416 






BR 


SHOVAL 










i SHOW 


aUANl 






* 23 
















24 


000700 


016705 


OOOOOOG 


SOPQl: 


MOV 


VQJANi. K5 


, G£ r VALUE 


. 25 


000704 


000413 






BR 


SHOVAL 




' 26 
















27 
. 28 
t 29 








; SHOW 


QUANIA 






000706 


016705 


OOOOOOG 


SOPQl A: 


MOV 


VQUNIA, R5 




30 


000712 


000410 






BR 


SHOVAL 




t ^^ 
















* 32 








; SHOW 


QUANIB 






33 
















^ 34 


000714 


016705 


OOOOOOG 


SOPQIB: 


MOV 


VQUNIB, R5 




• 35 


000720 


000405 






BR 


SHOVAL 




36 
















^ 37 








i SHOW 


QUANIC 






• 38 
















39 


000722 


016705 


OOOOOOG 


SOPQl C: 


MOV 


VQUNIC, R5 




40 


000726 


000402 






BR 


SHOVAL 




f 41 
















42 








i SHOW 


QUAN2 






43 
















' 44 


000730 


016705 


OOOOOOG 


S0PQ2: 


MOV 


VQUAN2, R5 




45 


000734 






SHOVAL; 


. PRINT 


#SPACE3 


i Print 3 spaces 


46 


000742 


004767 


OOOOOOG 




CALL 


PRTDEC 




\ 47 


000746 








. PRINT 


#CRLF 




48 


000754 


000167 


OOOOOOG 




JMP 


RDCMD 




49 
















* 50 








i SHOW 


QUAN3 






51 
















52 


000760 


016705 


OOOOOOG 


S0PQ3: 


MOV 


VQUANO, R5 


i Get QUANO value 


» 53 


000764 


000763 






BR 


SHOVAL 


■> Display it 


54 
















55 








; SHOW 


CORTIM 






♦ 56 
















57 


000766 


016705 


OOOOOOG 


SOPCTM: 


MOV 


VCORTM, R5 





f 
I 

€ 

I 
I 

I 
( 
< 
i 
t 
tf 
f 
f 
4 
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I 
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c 
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TSKSHO — Keyboard 
ALL 



5S 
59 
60 
61 
62 
63 
64 
65 

67 
68 
69 
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71 

75 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



000774 
001000 



001002 
001006 



001010 
001014 



001016 
001022 



0010s^4 
001030 



001032 
001036 



001040 
001044 



001046 
001054 
001060 
001064 
001072 
001076 
001102 
001110 
001116 
001122 
001126 
001134 
001142 
00U46 
001152 
001160 



016705 
000755 



016705 
000752 



016705 
000747 



116705 
000744 



1 16705 
000741 



116705 
000736 



116705 
000733 



116105 
004767 



)0476: 



116705 
004767 



116705 
004767 



0000000 



0000000 



0000000 



OOOOOOG 



OOOOOOG 



OOOOOOS 



OOOOOOG 



OOOOOOG 
OOOOOOG 



116705 OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



000167 OOOOOOG 



SHOW 
SOPIIO: 

i 

; SHOW 

> 

SOPHIO: 



SR 

INTIOC 

MOV 
BR 

HIPRCT 

MOV 
BR 



> SHOW NUMDC 

SOPNDC: MOV 
BR 

SHOW PR I LOW 

SOPPLO: MOVE 
BR 

i 

; SHOW PRTHI 

i 

SOPPHl: MOVB 
BR 



i SHOW 


PRIDEF 


SOPPDF: 


MOVB 




BR 


; SHOW 


PRIVIR 


SOP PVR: 


MOVB 




BR 


; SHOW 


PRIORITY 


SOPPRI: 


. PRINT 



r>riuvAi= 



VINTIO. R5 
SHOVAL 



VHIPCT, R5 
SHOVAL 



NUMDC D, R5 
SHOVAL 



VPRILO, R5 
SHOVAL 



VPRIHI, R5 
SHOVAL 



VPRIDF, R5 
SHOVAL 



VPRIVR,R5 
SHOVAL 



MOVB LPRI(R1)»R5 

CALL PRTDEC 

-PRINT #TM«PR2 

MOVB MXJPRI,R5 

CALL PRTDEC 

.PRINT #CRLF 

. PRINT #TM*LPR 

MOVB VPRILO, R5 

CALL PRTDEC 

PRINT #CRLF 

.PRINT #TM*HPR 

MOVB VPRIHI.RS 

CALL PRTDEC 

. PRINT #TM$HPE 

JMP RDCMD 



; "Current priority = " 

; Get current priority 

; Print it 

j "; maximum authorized priority = 

i Get max authorized priority 

j Print it 

;End of line 

; "Low priority range = to " 

i Get top of louj priority range 

; Print the value 

i "High priority range = " 

; Get base of high priority range 

i Print it 

; Finish message 



SHOW CACHE 



i 
t 
i 

i 

i 
i 
i 
i 
i 
i 

t 
f 
c 
t 



TSKSHO ■ 


— Keyboard SHOW 


Command 




ALL 






115 








116 


001164 


016705 


OOOOOOG 


117 


001170 


001004 




118 


001172 






119 


001200 


000421 




120 


001202 


005767 


OOOOOOG 


121 


001206 


001004 




122 


001210 






123 


001216 


00O412 




124 


001220 






125 


001226 


016705 


OOOOOOQ 


126 


001232 


004767 


OOOOOOG 


127 


001236 






128 


001244 


000167 


OOOOOOG 


129 








130 








131 








132 








133 


001250 


004767 


OOOOOOG 


134 


001254 


105767 


OOOOOOG 


135 


001260 


001004 




136 


001262 






137 


001270 


000403 




138 


001272 






139 


001300 


000207 
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SOPCSH: 


MOV 


CSHALC, R5 




BNE 


1* 




. PRINT 


#TM*CNG 




BR 


9* 


1*: 


TST 


VCSHNB 




BNE 


2* 




. PRINT 


#TM*CDS 




BR 


9$ 


2*: 


. PRINT 


#TM*CEN 




MOV 


VCSHNB. R5 




CALL 


PRTDEC 




. PRINT 


#CRLF 


9«: 


JMP 


RDCMD 



SHOW SYSPASSWORD 



SHOSYP: 


CALL 


CKSYPV 




TSTB 


SYPSWD 




BNE 


1* 




. PRINT 


#TH*NSP 




BR 


9* 


1*: 


. PRINT 


ttSYPSWD 


9*: 


RETURN 





iWas caching genned into system? 

; Br if yes 

i Caching not genned into system 

i Is caching enabled?" 

J Br if yes 

iCaching is disabled 

;■ Data cache size is ... 

; Get current number of blocks for cache 

;Print size of cache 

; Terminate print line 



iMake sure user has SYSPRV privilege 

; Is there a system password? 

; Br if yes 

i No system password 

.Print the password 



I 
{ 
( 

4 
4 

I 



i 
i 



f 
I 



4 
4 

€ 
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3 
4 
5 
6 
7 



!1 



23 
24 
25 
26 
27 



001302 010546 



00 



8 00 

9 00 

I n nn 

II 00 



14 00 

15 00 

16 00 

17 00 

18 00 

19 00 

20 00 



00 
00 
00 

00 

00 
00 



1304 
1312 

1322 
1326 



1344 
1350 
1352 
1354 
1360 
1364 
1372 
1376 
1402 

1410 
1416 



28 001426 

29 001432 

30 001436 
31 



32 00 

33 00 

34 00 

35 00 

36 00 

37 00 
38 

39 00 

40 00 

41 00 

42 00 

43 00 
44 

45 00 

46 00 

47 00 

48 00 

49 00 
50 

51 00 

52 00 

53 00 

54 00 

55 00 

56 00 

57 00 



1440 
1446 
1452 
1456 
1460 
1462 

1466 
1474 
1500 
1504 
1510 

1514 
1522 
1526 
1532 
1536 

1542 
1550 
1554 
1560 
1562 
1564 
1570 



016705 
072527 
042705 
004767 



062705 
000241 

006005 
072527 
004767 

016702 

004767 



016705 
062705 
072527 
004767 
010546 



016705 
166705 
005305 
062605 
004767 



016705 
062705 
072527 
004767 



016705 
062705 
072527 
004767 



016705 
062705 
000241 
006005 
072527 
004767 



OOOOOOG 
177775 
160000 
012230 



OOOOOOG 
001777 



177767 
OOOOOOG 

OOOOOOG 

OOOOOOG 



OOOOOOG 
000007 
177775 
012124 



OOOOOOG 
OOOOOOG 



012074 



OOOOOOG 
000007 
177775 
012046 



OOOOOOG 
000007 
177775 
012020 



OOOOOOG 
000007 



177776 
011766 



MEMORY 



SHOW MEMORY 

SHOMEM: MOV 

i Total instal 

. PRINT 

MOV 

ASH 

BIC 

CALL 
/ Size of unma 

. PRINT 

MOV 

ADD 

CLC 

ROR 

ASH 

CALL 

. PRINT 

MOV 

CALL 

. PRINT 
; Size of mapp 

. PRINT 

MOV 

ADD 

ASH 

CALL 

MOV 
; Total TSX-Pl 

. PRINT 

MOV 

SUB 

DEC 

ADD 

CALL 
j Mapped handl 

. PRINT 

MOV 

ADD 

ASH 

CALL 
i Shared run-t 

. PRINT 

MOV 

ADD 

ASH 

CALL 
i Data cache b 

. PRINT 

MOV 

ADD 

CLC 

ROR 

ASH 

CALL 



R5, -(SP) 
led memory 

#T0TMM3 

PHYMEM, R5 

#-3, R5 

#160000.. R5 

PRTKB 
pped system & 

#UMSSMS 

UMSYTP, R5 

#1777, R5 

R5 

#-9. . R5 

PRTDEC 

#KBPARN 

UMSYTP, R2 

OCTPRT 

#PARNNL 
ed system regi 

#SSRMAP 

SMRSIZ,R5 

#7, R5 

#-3, R5 

PRTKB 

R5, -<SP) 
us size 

#TSXSMS 

LOMAP, R5 

BASMAP, R5 

R5 

(SP)+, R5 

PRTKB 
ers 

#MHNSMS 

MHNSIZ,R5 

#7, R5 

#-3, R5 

PRTKB 
ime systems 

tSRTSMS 

SRTSIZ,R5 

#7, R5 

#-3, R5 

PRTKB 
uf f ers 

ttCSHMSG 

CSH3IZ,R5 

#7, R5 

R5 

#-2, R5 
PRTKB 



i TOTAL MEMORY 

; Get total # 64~byte blocks of memory 
; Convert to # 512-byte pages 
/Kill possible sign extension 
i DISPLAY THE VALUE 
unmapped handlers 

SIZE OF UNMAPPED PORTION OF SYSTEM 

GET ADDRESS OF TOP OF TSX 

BOUND UP TO KB 

CVT TO KB 

/2 without propagating sign 

/2/512. =/1024. 

Display #Kb 

"Kb <" 

Get limit again 

Display high address 

")<CR><LF>" 



ons 



iSIZE OF SYSTEM MAPPED REGION 

;# 64-byte blocks for mapped regions 

i Round up 

j Convert to 512-byte block units 

i SAVE MAPPED REGION SIZE 

TSX SIZE 

PAGE AT TOP OF TSX 

# PAGES FOR TSX AND HANDLERS 

iADD MAPPED REGION SIZE 



iSize of mapped handlers 

i# 64-byte blocks for mapped handlers 

; Round up 

J Convert to 512-byte block units 



iSIZE OF SHARABLE RUN-TIME SYSTEMS 

j# 64-byte blocks for shared run-times 

i Round up 

; Convert to 512-byte block units 



Size of data cache 

# 64-byte blocks for data cache 

Round up 

Clear carry to convert to 512 byte 
block units uiithout sign extension 
in case cache >=2Mb (100000 64bytes) 



i 
I 
I 
c 
r 
c 

I 
c 

i 

I 



I 

i 



( 

f 



c 
I 
r 
i 

i 
f 
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MEMORY 



User 



5S 








59 


001574 






60 


001602 


016705 


OOOOOOG 


61 


001606 


166705 


OOOOOOG 


62 


001612 


004767 


011744 


63 








64 


001616 






65 


001624 


016705 


OOOOOOG 


66 


001630 


005205 




67 


001632 


004767 


011724 


68 


001636 


004767 


011620 


69 


001642 


012605 




70 


001644 


000207 





Job 



memory 


space 


. PRINT 


#U3RMM3 


MOV 


HIMAP,R5 


SUB 


LOMAP, R5 


CALL 


PRTKB 


context 


area size 


. PRINT 


#JCXSMS 


MOV 


JCXPGS. R5 


INC 


R5 


CALL 


PRTKB 


CALL 


DSPMEM 


MOV 


(SP)+i R5 


RETURN 





Page 8-1 



i USER MEMORY SPACE 



iSIZE OF JOB CONTEXT AREA 

; ROUND UP 

; SHOW JOB MEMORY LIMITS 



f 
f 
f 

€ 

I 

I 

( 

i 

f 

€ 

I 



i 

( 
{ 
i 
I 
4 
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3 
4 

5 
6 
7 



001646 
001650 
001652 



8 001654 



10 
11 
12 

1 n 
X w 

14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
4B 
49 
50 
51 
52 
53 
54 
55 
56 
57 



001 
001 



674 



001 

001 
OOl 
001 
001 



706 
714 
;'16 
724 
726 



001732 
001734 
001736 
001742 



001746 
001752 
001756 
001762 
001764 
001766 
001776 
002000 



002004 

002010 
002014 
002016 
002029 
002026 
002030 
002034 
002042 



010146 
010246 
010346 
010446 



032761 

001406 
032767 
001402 
000167 



010105 
006205 
012703 
004767 



116700 
116000 
012703 
020100 
001005 

005303 



012703 
120167 
001430 
012703 
020127 
101023 
012703 
032761 
001415 



. SBTTL TERMINALS 

Display information about terminals. 



SHOTRM: MOV 
MOV 
MOV 
MOV 



Rl, -(SP) 
R2, -<SP) 
R3, -<SP) 
R4,-<SP) 
R5, "(SP) 



Print heading lines 



. 1 R AIM I 

. PR INI 



#CRLF 
#TRMHD1 



Print a blank line 
Heading line 1 
Heading line 2 



001702 012701 00000c 



PRINT #TRMHD2 
Begin loop to print info for each terminal 

MOV #2j Rl ; Get first terminal index number 

If me are on a pro, do not display info about uninstalled lines 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 
001044 



!*• 



BIT 

BL ] 
BEQ 
JMP 



#*DEAD. LSW3<R1 ) i Is this line installed? 



33* 

#CW*PRD.. CONhGk' 

33$ 

30$ 



Display unit number 



33$: 



000002 
OOOOOOG 



OOOOOOG 
OOOOOOG 
000004 



MOV 


Rl, R5 


ASR 


R5 


MOV 


#2, R3 


CALL 


PRTFIX 



; Br if yes 

; Are we running on a pro? 

j Br if not 

; Go check next line 



i Get terminal index # 
/Convert to unit # 
iPrint using 2 columns 
i Print unit number 



Print "*" if this is the current line 



OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG OOOOOOG 



15$: 



MOVE 


CORUSR, RO 


MOVE 


LNPRIM<RO),RO 


MOV 


#4, R3 


CMP 


RliRO 


BNE 


15$ 


. TTYOUT 


#'# 


DEC 


R3 


CALL 


PRTSPC 



Get current job index # 

Get primary line # 

Set to print 4 spaces 

Is this our line? 

Br if not 

Flag our line 

Print only 3 more spaces 

Print spaces 



Display type of terminal 



Assume this is operator's console 
Is this operator's console? 
Br if yes 

Assume this is a CL line 
Is this a CL line? 
Br if yes 

Assume this is a local terminal 
#$PHONE, ILSW2(R1)J Is this a dial-up terminal? 

j Br if not d ial~up 



MOV 


#OPRTXT, R3 


CMPB 


Rl/CTRLTT 


BEQ 


2$ 


MOV 


#CLLINE, R3 


CMP 


Rl, #LSTPL 


BHI 


2$ 


MOV 


#LCLTXT, R3 


BIT 


#$PHONE, IL 


BEQ 


2$ 



I 

I 

I 

f 
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002044 
002052 
002054 
002060 
002062 
002070 
002072 
002076 



002102 
002106 
002112 
002116 
002122 
74 002126 

002130 
002134 
002140 
002144 

002146 
002156 
002162 
002166 
002172 
002176 
002202 
002306 
002212 
002216 



58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

Bl 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 



002226 
002232 



002240 



002246 
002252 
002256 



002262 
002266 
002272 



»_'0 si / Q 1 

001407 
105767 
001004 
032761 
001402 
012703 



016100 
016000 
004767 
016105 
016104 
001007 

012703 
004767 
016105 
000420 



016105 
012703 
004767 
012703 
004767 
016405 
012703 
004767 
012703 
004767 



016104 
001003 



016402 
004767 
012703 

004767 



0000000 OOOOOOG 
0000000 

OOOOOOG OOOOOOG 
OOOOOOG 



OOOOOOG 
000024 ' 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000004 

OOOOOOG 

OOOOOOG 



OOOOOOG 

000002 

OOOOOOG 

000001 

OOOOOOG 

OOOOOOG 

000003 

OOOOOOG 

000002 

OOOOOOG 



OOOOOOG 



016102 OOOOOOG 



OOOOOOG 
OOOOOOG 
000002 
OOOOOOG 



004767 OOOOOOG 
012703 000002 
004767 OOOOOOG 



13 I I 

BEQ 

TSTB 

BNE 

BIT 

BEQ 
17*: MOV 
2*: PRINT 

Dii5play vecti 



#$INIT, L3W(Ri) 

17* 

VUSPRN 

17* 

#*CARMN, LSW5<R1) 

2* 

#REMTXT, R3 

R3 



This 



This 



3*; 



4*: 



MOV 

MOV 

CALL 

MOV 

MOV 

BNE 

is not 

MOV 

MOV 

BR 

i s a mu 

. TTYOUT 

MOV 

MOV 

CALL 

MOV 

CALL 

MOV 

MOV 

CALL 

MOV 

CALL 



LCDTYP(R1)>R0 

CTLNAM(RO),RO 

PRTR50 

LMXLN(Rl), R5 

LMXNUM(Rl), R4 

3* 
a mux line 

#4, R3 

PRTSPC 

INVEC(R1.). Rtj 

4* 
X line 

#'- 

LMXLN(Rl), R5 

#2, R3 

PRTFIX 

#1- R3 

PRTSPC 

MXVEC(R4). R5 

OCTFIX 
#2, R3 
PRTSPC 



Is line in use now? 

Print "PHONE" if inactive dial-up line 

Are phone lines always phone? 

If so, print "PHONE" 

; Is line being used as dial-up? 

Print "LOCAL" if active but no carrier 

This is a remote terminal 

Print type 

,/DZ type 

J Get device type code for this line 

; Get RAC50 name of controlling device 

i Print the device name 

,i Get line # within mux 

.: Get mux index number 

i Br if this is a mux line 

; Print 4 spaces 

j Get input vector address 



i Put in hyphen 

; Get line # within the mux 

iPrint in 2 column field 

; Print line number 

; Print 1 space 

; Get DZ-11 interrupt vector address 

; Print 3 digits 

i Print vector address 

; Print 2 spaces 



I 
I 
I 
I 

i 
f 
f 
t 
€ 



Print address of Control Status Register (CSR) 



MOV LMXNUM<R1), R4 

BNE 10* 
i This is a DL-11 line 

MOV RSR(R1),R2 

BR 11* 
j This is a DZ-11 line 
10*: MOV MXCSR(R4>,R2 
11*: CALL OCTPRT 

MOV #2, R3 

CALL PRTSPC 



j Get mux index number 
; Br if DZ-11 

i Get address of receiver status register 



; Get address of CSR 
;Print the address 
i Print 2 spaces 



C 

i 
4 
< 

i 

t 

i 



Print information about terminal type 



CALL 


PRTTTP 


MOV 


#2, R3 


CALL 


PRTSPC 



002276 032761 OOOOOOG OOOOOOG 



j Print terminal type 
i Print 2 spaces 



Print information about speed 

BIT #*AUTO, ILSW2<R1 ); Is autobaud specified for this line? 



TSKSHO 
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117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 



002306 
002312 
002314 
002322 
002324 
002332 
002334 
002340 
002342 
002346 
002350 

WWSU^J WW 

002360 
002364 
002370 
002374 
002376 
002402 
002404 



002414 
002420 
002424 
002426 
002436 
002440 
002450 
002454 
002456 
002466 
002470 
002474 
002476 
002506 
002510 
002520 
002524 



002542 
002544 
002550 
002552 
002556 
002560 
002566 
002570 
002574 
002576 
002600 
002604 



005761 
002010 
032761 
001004 

000424 
016103 

042703 
001004 



070327 
062703 
012704 
1 1 2300 

077404 



03r;703 
001005 

000404 

032703 
001005 

000414 
032703 

001005 

000404 

012703 
004767 



002530 012703 



UOci/O. 

001035 
016105 
002012 
020127 
101027 
032761 
001423 
012703 
000420 
006205 
020527 
101406 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 
177760 



000005 

OOOOOOG 

000005 



24*: 



5*: 



6$: 



7$: 



BEQ 


24* ; 


TST 


LCLUNT<R1) ; 


BGE 


24* i 


BIT 


#*DILUP,LSW(R1) ; 


BNE 


24* i 


. PRINT 


#TM*AUT } 


BR 


7* 


MOV 


LMXPRM<R1)>R3 i 


SWAB 


R3 ; 


BIG 


#177760,- R3 ■> 


BNE 


5* ; 


. PRINT 


#NATXT i 


BR 


7* 


MUL 


#5, R3 i 


ADD 


#SPDTX1,R3 ) 


MOV 


#5i R4 1 


MOVE 


(R3)+, RO ; 


TTYOUT 




SOB 


R4, 6* ; 


. TTYOUT 


#40 i 



f a. I I ■ li^ 1/ 

Is this line being used as a CL unit? 

Br if yes — No autobaud for CL 

Is a job active on this line? 

Br if yes — speed is knoiun if job on 

Print "auto" 

Get line parameters for mux line 
Right justify speed code 
Clear all but speed code 
Br if tue know the speed 
Print "N/A" 

Values are stored 5 characters each 

Point to text string 

Print 5 characters 

Get next char of speed 

Print it 

Loop till all printed 

Print a space 



Print information about character length and parity 



00000 IG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



000004 
OOOOOOG 



OOOOOOG 
OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

000007 



27*: 
28*: 



29*: 



32*: 
31*: 



MOVE 

BIT 

BNE 

. TTYOUT 

BR 

. TTYOUT 

BIT 

BNE 

. TTYOUT 

BR 

BIT 

BNE 

. TTYOUT 

BR 

. TTYOUT 

MOV 

CALL 



LMXPRM+1 (Rl), 

#LP*7Bf , N3 

27* 

#'S 

28* 

#'7 

#LP*PAR> R3 

29* 

#'N 

31* 

#LP*ODD> R3 

32* 

#'E 

31* 

#'0 

#4, R3 

PRTSPC 



R'J ;Get line parameter flags 
; 7 bit characters wanted? 
.; Br if yes 
i Say length is 8 bits 

i Say length is 7 bits 

; Parity wanted? 

; Br if yes 

i Say no parity 

iOdd parity wanted? 

; Br if yes 

j Say even parity 

i Say odd parity 
i Print 4 spaces 



i 
I 
f 

€ 
f 

I 
f 
i 

i 

f 



i 



Indicate if line is active now 



16«: 



MOV #NOTXT, R3 

BIT #*DEAD/ L3W3 ( R 1 > 

BNE 12* 

MOV LCLUNT<R1).- R5 

BGE 16* 

CMP R1,#LSTPL 

BHI 12* 

BIT #*INIT, LSWCRl) 

BEQ 12* 

MOV #YESTXT, R3 

BR 12* 

ASR R5 

CMP R5, #7. 

BLOS 34* 



Assume line is not active 
Is line installed? 

if not installed 

a CL unit assigned to this 

if yes 



Br 
Is 
Br 
Is 
Br 
Is 
Br 



line? 



or CL line? 



this a real 

if CL line 

line active now? 

if not 
Point to "Yes" text 
Print yes 

Convert CL unit index to unit number 
Units 0-7 go with CL device 



TSKSHO - 
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Command 


MACRO V 


172 


002606 


162705 


000010 




173 


002612 








174 


002620 


000403 






175 


002622 








176 


002630 


004767 


OOOOOOG 




177 


002634 


000402 






178 


002636 








179 


002642 


012703 


000003 




ISO 
ISi 
182 


002646 


004767 


OOOOOOG 












183 










184 


002652 


032761 


OOOOOOG 


OOOOOOG 


185 


002660 


001404 






186 


002662 








187 


002670 


000437 






188 


002672 


016105 


OOOOOOG 




189 


002676 


001405 






190 


002700 


105715 






191 


002702 


001403 






192 


002704 








193 


002710 


000432 






194 


002712 


016105 


OOOOOOG 




195 


002716 


002016 






196 


0027^0 


02012/ 


OOOOOOG 




197 


002724 


101007 






198 


002726 


032761 


OOOOOOG 


OOOOOOG 


199 


002734 


001415 






200 


002736 


004767 


OOOOOOG 




201 


002742 


000412 






202 


002744 








203 


002752 


000406 






204 


002754 








205 


002762 


006205 






206 


002764 


004767 


OOOOOOG 




207 


002770 








208 










209 










210 










211 


002770 








212 


002776 


062701 


000002 




213 


003002 


020127 


OOOOOOG 




214 


003006 


101007 






215 


003010 


020127 


000002G 




216 


003014 


001002 






217 


003016 


012701 


OOOOOOG 




218 


003022 


000167 


1 76660 




219 










220 










221 










222 


003026 


012605 






223 


003030 


012604 






224 


003032 


012603 






225 


003034 


012602 






226 


003036 


012601 






227 


003040 


000207 







V05. 05 


Friday 20 


-Jan-S9 




SUB 


#S. .- R5 




. PRINT 


#TX'TCi 




BR 


35* 


34* : 


. PRINT 


#TXTCL 


35*: 


CALL 


PRTDEC 




BR 


25* 


12*: 


. PRINT 


R3 


25*: 


MOV 


#3, R3 




CALL 


PRTSPC 
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; Remove CI unit bias 
i Print "CI" 

; Print "CL" 

i Print CL unit number 

; Print Yes/No 
; Print 3 spaces 



; Print name of user uho is using this line 



>6*; 



13*- 



23*: 
21*: 

14*: 



BIT 


#*DEAD. LSW3(R1) 


BEQ 


26* 


. PRINT 


#NINTXT 


BR 


14* 


MOV 


LNAriE<Rn.R5 


BEQ 


13* 


TSTB 


<R5) 


BEQ 


13* 


. PRINT 


R5 


BR 


30* 


MOV 


LCHJNT(Rl). R5 


BGE 


21* 


CMP 


Rl, #LSTPL 


BHI 


23* 


BIT 


#*KINIT.LSW<R1 ) 


BEQ 


14* 


CALL 


PRTUNM 


BR 


14* 


. PRINT 


#CLFREE 


BR 


14* 


. PRINT 


#CLUNIT 


ASR 


R5 


CALL 


PRTDEC 



Is this line installed? 
Br if line is installed 
Print Not installed 

Is there a descriptive name for this line? 

Br if not 

Is the 1 ine b lank? 

Branch if no line name 

Print asciz name string 

Is this line used as a CL unit?' 

Br if yes 

Is this a real or CL line? 

Br if CL line 

Is job logged on? 

Br if not 

Print user's name 

This is a free CL line 

Print "CL line " 
Convert to unit number 
Print decimal value 



i Terminate print line and loop if more lines to print 





. PRINT 


#CRLF 


30*: 


ADD 


#2, Rl 




CMP 


R 1 , #LSTHL 




BHI 


20* 




CMP 


Rl, #LSTPL+2 




BNE 


22* 




MOV 


#FSTIOL, Rl 


22*: 


JMP 


1* 



Terminate print line 

Advance line index number 

Are there more lines? 

Br if not 

Have \ue stepped past last real line? 

Br if not 

Skip up to 1st CL line 

Go display info for next line 



i Finished 

i 

20*: MOV 
MOV 
MOV 
MOV 
MOV 
RETURN 



(SP)+, R5 
(SP)+, R4 
<SP)+, R3 
<SP)+, R2 
(SP)+, Rl 



I 

4 

€ 



I 



I 
i 

i 
i 
C 
I 
I 
i 

I 
I 

i 
c 
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CL 



3 








4 








5 


003042 


010146 




6 


003044 


010346 




7 


003046 


010446 




8 


003050 


010546 




9 








10 








11 








12 


003052 


005727 


0000000 


13 


003056 


001005 




14 


003060 






15 


003066 


000167 


000466 


16 








17 








18 








19 








20 


003072 






21 


003100 


116705 


0000000 


22 


003104 


004767 


OOOOOOG 


23 


003110 






24 








25 








26 








27 


003U6 






28 


003124 






29 








30 








31 








32 


003132 


005001 




33 








34 








35 








36 


003134 


010105 




37 


003136 


006205 




38 


003140 


020527 


000007 


39 


003144 


101406 




40 


003146 






41 


003154 


162705 


000010 


42 


003160 


000403 




43 


003162 






44 


003170 


004767 


OOOOOOG 


45 


003174 


012703 


000002 


46 


003200 


004767 


OOOOOOG 


47 








48 








49 








50 


003204 


016105 


OOOOOOG 


51 


003210 


001412 




52 


003212 


006205 




53 


003214 


012703 


000003 


54 


003220 


004767 


OOOOOOG 


55 


003224 


012703 


000003 


56 


003230 


004767 


OOOOOOG 


57 


003234 


000407 





, oa I I i_ 



Displau information about CL units. 



SHOCL: 



MOV 
MOV 
MOV 
MOV 



Rl. -(SP) 
R3, -<SP) 
R4, -(SP) 
R5, -<SP) 



See if there are any CL units 

TST #CLTOTL 

B^4E 11* 

.PRINT #TM*CLO 

JMP 9* 

There are some CL units. 
Print version number. 



; Are there any CL units? 



«J 1 J. 



yes 



; There are no CL units 



11$: .PRINT #TM*CL7 

MOVE CLVERS, R5 

CALL PRTDEC 

.PRINT #TM*CL8 

Print heading lines. 



1$: 



. PRINT #TM$CL1 
.PRINT #TM*CL2 



i "CL emulating XL version 

i Set number to be printed 

, Print the decimal value 
. II II 



i Head ing line 1 
i Head ing 1 ine 2 



Begin loop to print info about each unit. 



CLR Rl 
Print CL unit namt 



2*: 



MOV 


R1,R5 


ASR 


R5 


CMP 


R5, #7. 


BLOS 


19* 


. PRINT 


#TM*C13 


SUB 


#8. ,R5 



BR 



20* 



19*: 
20*: 



.PRINT #TM*CL3 

CALL PRTDEC 

MOV #2, R3 

CALL PRTSPC 



ilnit CL unit index number 



j Get CL unit index 

; Convert to unit number 

jUnit # in range 0-7 get name CL 

; Print " CI" 

i Remove CI unit number bias 

i Print " CL" 
; Print unit # 
/Print 2 spaces 



Print the number of the associated line 



MOV 


CL*LIX<R1), R5 


BEQ 


3* 


ASR 


R5 


MOV 


#3. , R3 


CALL 


PRTFIX 


MOV 


#3. . R3 


CALL 


PRTSPC 


BR 


4* 



Get associated line number 

Br if there is no associated line 

Get line # 

Get print field width 

Print the line number 

Print 3 spaces 



i 

I 
I 
f 
< 

c 
I 
t 

€ 
I 

I 

i 
i 

i 



i 
i 



4 

( 

i 
C 
I 

c 

c 
I 

4 
4 

I 
i 
c 

c 
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Command 




CL 






58 


003236 






59 


003244 


012703 


000002 


60 


003250 


004767 


OOOOOOG 


61 








62 








63 








64 


003254 


010100 




65 


003256 


004767 


OOOOOOG 


66 


003262 


010005 




67 


003264 


001411 




68 


003266 


012703 


000003 


69 


003272 


004767 


OOOOOOG 


70 


003276 


012703 


000002 


71 


003302 


004767 


OOOOOOG 


72 


003306 


000407 




73 


003310 






74 


003316 


012703 


000001 


75 
76 
77 


003322 


004767 


OOOOOOG 








78 








79 


003326 


016705 


OOOOOOG 


80 


003332 


OIOIOO 




81 


003334 


006200 




82 


003336 


02002/ 


000007 


83 


003342 


101404 




84 


003344 


162700 


000010 


85 


005350 


016705 


OOOOOOG 


86 


003354 


000300 




87 


003356 


050005 




88 


005360 


012700 


OOOOOOG 


89 


003364 


020027 


OOOOOOG 


90 


003370 


103011 




91 


003372 


020560 


OOOOOOG 


92 


003376 


001403 




93 


003400 


062700 


OOOOOOG 


94 


003404 


000767 




95 


003406 






96 








97 








98 








99 


003414 


005761 


OOOOOOG 


100 


003420 


001445 




101 


003422 


016105 


OOOOOOG 


102 


003426 


012703 


003572' 


103 


003^32 


005004 




104 


003434 


032305 




105 


003436 


001420 




106 


003440 


005704 




107 


003442 


001004 




108 


003444 






109 


003452 


000404 




110 


003454 






111 


003464 


010304 




112 


003466 


112400 




113 


003470 


001403 




114 


003472 
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3$: 



. PRINT 

MOV 

CALL 



#TM$CL4 
#2, R3 
PRTSPC 



; Print "none" 
i Print; 2 spaces 



Print number of any job that is using this CL unit 



4*: 



1S«: 



MOV 


Rl, RO 


CALL 


CKCLUS 


MOV 


RO, R5 


BEG 


IS* 


MOV 


#3, R3 


CALL 


PRTFIX 


MOV 


#2, R3 


CALL 


PRTSPC 


BR 


17* 


. PRINT 


#TM*CL4 


MOV 


#1. R3 


CALL 


PRTSPC 



i Get CL index number 

i See if any job is using CL unit 

if 



i vrB t 

; Br 
i Print 
; Print 
; Print 



of job that is 
device is free 
in 3 character 
the job number 
<±. spaces 



using the device 
field 



i Print "none" 
j Print 1 space 



See if this CL unit is spooled 



17*: 



!1*: 



5*: 



6*: 



7*: 



MOV 


CLDEVX,R5 


MOV 


Rl, RO 


ASR 


RO 


CMP 


RO, #7 


BLDS 


21* 


SUB 


#8. , RO 


MOV 


CIDEVX, R5 


SWAB 


RO 


BIS 


RO, R5 


MOV 


#SDCB, RO 


CMP 


RO, #SDCBND 


BHIS 


7* 


CMP 


R5, SDDVU(RO) 


BEQ 


6* 


ADD 


#SDCBSZ, RO 


BR 


5* 


. PRINT 


#TM*CL5 



Get CL device index number 

Get CL unit # index 

Convert to unit # 

CL or CI type unit? 

Br if CL 

Remove CI unit bias 

Get CI device index number 

Put unit number in high order byte 

Combine with device index # 

Point to first SDCB 

Have uje checked all spooled devices? 

Br if yes — This CL unit is not spooled 

Is this SDCB for this CL unit? 

Br if yes — CL unit is spooled 

Point to next SDCB 

; Print " (spooled ) " 



Print which options are selected for this line 



15*: 



12* 
13* 
14* 



TST 


CL«LIX(R1) 


BEQ 


10* 


MOV 


CL*0PT(R1) 


MOV 


#CLOPTB, R3 


CLR 


R4 


BIT 


(R3)+, R5 


BEQ 


16* 


TST 


R4 


BNE 


12* 


. PRINT 


#TM«CL6 


BR 


13* 


. TTYOUT 


#54 


MOV 


R3, R4 


MOVB 


(R4)+, RO 


BEQ 


16* 


. TTYOUT 





R5 



Is this CL unit assigned to a line? 

Br if not — Don't display options 

Get option flags for this CL unit 

Point to option name table 

Say no option names printed yet 

Is this option selected? 

Br if not 

Is this the 1st option? 

Br if not 

Print " C" 

i Print comma 

j Point to option name string 

i Get next char from option name string 

; Br if hit end of name string 

; Print next char of option name 



i 

€ 

4 



I 
t 
I 
I 

I 



TSKSHO 
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c 
I 
( 
I 
c 

i 

c 

i 
i 
I 

i 
i 
I 

( 

i 
i 
i 



117 

lis 

119 
120 
121 
122 

1 OO 

124 
125 
126 

1 T7 
J. c / 

128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 



CL 



003502 
003504 
003506 
003512 
003516 
003520 
003522 
003524 



003534 



003542 
003546 
003552 
003554 



003560 
003562 
003564 
003566 
003570 



003572 
003572 
003602 
003610 
003616 
003632 
003642 
003652 
003662 
003674 
003704 
003712 
003722 
003730 



001376 
005203 
042703 
020327 
103746 
005704 
001404 



012601 
000207 



000001 
003730 ' 



i day 


20-Jan-S9 10: 


BR 


14* 


TSTB 


<R3) + 


BNE 


16* 


INC 


R3 


BIC 


#1,R3 


CMP 


R3> #CLOP!MD 


BLO 


15* 


TST 


R4 


BEQ 


10* 



. TTYOUT # ' 3 

i 

i Terminate the print line 

i 

10*: .PRINT #CRLF 



Page 10- 



> Loop to print rest of option name 
; Search for end of option name 
; Loop till end found 
iPoint to next word 

/Checked all options? 

; Loop if not 

; Were any options printed? 

; Br if not 

j Close option list 



; End of print line 



See if there are more CL units 



062701 000002 

020127 OOOOOOC 

103002 

000167 177354 



Oic'605 
012604 



9*: 



ADD 


#2, Rl 


CMP 


R 1 , #2*CLT0TL 


BHIS 


9* 


JMP 


2* 


Finished 




MOV 


<SP)+, RS 


MOV 


<SP)+, R4 


MOV 


( SP ) +, R3 


MOV 


(SP)+.R1 


RETURN 





i Advance CL unit index 

; Have we done all CL units? 

i Br if yes 

i Go show info for next unit 



Table of CL option flags and option names 



. MACRO CLOP 

. WORD FLAG 

. ASCIZ /'NAME'/ 
. EVEN 



FLAG, NAME 



. ENDM 



CLOP 



CLOPTB: 








CLOP 


CO*FF, FORM 




CLOP 


CO*TAB, TAB 




CLOP 


CO*LC, LC 




CLOP 


CO*SBT>EIGHTBIT 




CLOP 


CO*LFO, LFOUT 




CLOP 


CO*LFI,LFIN 




CLOP 


C0*FF0, FORMO 




CLOP 


CO*BNO, BINDUT 




CLOP 


CO*BNI,BININ 




CLOP 


CO*CR, CR 




CLOP 


CO*CTL, CTRL 




CLOP 


CO*DTR, DTR 


CLOPND: 







c 

f 
I 

( 
t 

f 

f 

I 

i 

i 

4 

c 

t 
c 

t 
I 



i 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
ft t*\ 

50 
51 
52 
53 
54 
55 
56 
57 



003730 

000336 
000342 

003730 
003732 
003734 
003736 
003740 



003742 
003744 
003746 
003752 
003754 
003756 
003762 
003766 
003770 
004000 



. SBTTL JOBS 

Shoui information about all jobs. 

Define /PPN option for SHOW JOBS command 

TBLDEF SJO, 1 
CMDDEF P#PN, 
TBLE.MD 



010146 
010246 
010346 
010446 
010546 



105713 
001420 
121527 
001015 
005203 
012704 
004767 
103004 



SHO JOB : MOV 

MOV 
Mm; 

1 it-r V 

MOV 
MOV 



R 1 1 - ( SP ) 
R2> -<SP) 
R3, -<SP) 
R4, -(SP) 
R5, -(SP) 



See if we should display PPN instead of User names 



000057 



000334 ' 
OOOOOOG 



112767 000001 OOOOOOG 41*: 



TSTB 


(R3) 


BEQ 


40* 


CMPB 


(R3), #'/ 


BNE 


40* 


INC 


R3 


MOV 


#SJOHD, R4 


CALL 


SEARCH 


BCC 


41* 


FABORT 


#INVOPT 


MOVE 


#1,SJSPPN 



ANY COMMAND OPTIONS? 
BRANCH IF NOT 
VALID SWITCH LEAD I NT- 
IGNORE IF NOT 
SKIP / 

POINT TO SHOW JOBS OPTION TABLE 
VALID OPTION? 
REMEMBER /PPN IF SO 

; /PPN ONLY VALID OPTION AT THIS TIME 



004006 004767 007122 



004012 
004020 



004026 012701 



Print system usage statistics 
40*: CALL PRTUSE ; PRINT SYSTEM USAGE STATISTICS 

Print heading lines 



PRINT #SYHD1 
PRINT #SYHD2 



; PRINT FIRST LINE OF JOB HEADING 
i AND UNDERLINE IT 



Begin loop to display information about each active line 



004032 
004040 

004042 



004046 
004050 



004054 

004060 



032761 
001002 

000167 



010105 
004767 



112700 
120167 



OOOOOOG OOOOOOG 1*: 

000624 



MOV #2, Rl 

See if line is active 

BIT #*KINIT. LSW(Rl) 
BNE 20* 
JMP 30* 

Print line number 



?0*: 



OOOOOOG 



000040 
OOOOOOG 



MOV 
CALL 



Rl, R5 
PRTLN 



GET 1ST LINE INDEX # 



HAS LINE BEEN INITIALIZED' 
BR IF YES 
TRY NEXT LINE 



; GET LINE INDEX # 
; PRINT THE LINE # 



Print '*' if this is our line 



MOVE 
CMPB 



#' ,R0 
Rl, CORUSR 



i ASSUME THAT IT'S NOT OUR LINE 
i IS THIS OUR LINE? 



I 

I 



I 

< 

I 
( 

i 

i 
i 

i 
i 
1 
i 
i 

i 
{ 
t 
{ 
i 
{ 
i 
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5S 


004064 


001002 






59 


004066 


112700 


000052 




60 


004072 






2*: 


61 


004076 








62 








* 


63 








i 


64 








i 


65 


004104 


020127 


ooooooe 




66 


004110 


101407 






67 


004112 


020127 


0000000 




68 


004116 


101004 






69 


004120 








70 


004126 


000443 






71 


004130 


116105 


OOOOOOG 


3«: 


72 


004134 


004767 


OOOOOOG 




73 


004140 








74 


004150 


020127 


OOOOOOG 




75 


004154 


101412 






76 


004156 


016504 


OOOOOOG 




77 


004162 


012700 


OOOOOOG 




78 


004166 


012705 


000001 




79 


004172 


120124 




21* 


80 


004174 


001403 






ei 


004176 


005205 






82 


004200 


077004 






S3 


004202 


005005 




19* 


84 


004204 


004767 


OOOOOOG 


22* 


85 


004210 








86 


004220 


020527 


000011 




87 


004224 


101004 






88 


004226 








89 


004236 






18* 


90 








i 


91 








} 


92 








i 


93 


004244 


116105 


OOOOOOG 




94 


004250 


012703 


000003 




95 


004254 


004767 


OOOOOOG 




96 


004260 








97 








i 


98 








i 


99 








i 


100 


004266 


005003 






101 


004270 


016102 


OOOOOOG 




102 


004274 


020263 


004730 ' 


4*. 


103 


004300 


001416 






104 


004302 


062703 


000002 




105 


004306 


020527 


000050 




106 


004312 


103770 






107 


004314 


012700 


OOOOOOG 




108 


004320 


020237 


OOOOOOG 




109 


004324 


101402 






110 


004326 


012700 


OOOOOOG 




ill 


004332 






25* 


112 


004334 


000406 






113 


004336 


016367 


005000' 000504 


6*: 


114 


004344 









BNE 2* 
MOVE ft'^.RO 
. TTYOUT 
.PRINT #SPACE2 



; PRINT * IF YES 
i PRINT 2 SPACES 



Print information about owner jobs 



CMP 


R1,#LSTPL 


BLOS 


3* 


CMP 


Rl, #LSTDL 


BHI 


3* 


. PRINT 


#DETTXT 


BR 


IS* 


MOVE 


LNPRIM(Rl) 


CALL 


PRTLN 


. TTYOUT 


#'< 


CMP 


Rl. #LSTPL 


BLOS 


19* 


MOV 


LSECPT(R5) 


MOV 


#MAXSEC, RO 


MOV 


#1/ R5 


CMPB 


Rl, <R4) + 


BEQ 


22* 


INC 


R5 


SOB 


RO, 21* 


CLR 


R5 


CALL 


PRTDEC 


. TTYOUT 


#') 


CMP 


R5, #9. 


BHI 


IS* 


. TTYOUT 


#40 


. PRINT 


#SPACE2 



r; 



R4 



Print job priority 

MOVE LPRKRD.RS 

MOV #3, R3 

CALL PRTFIX 

.PRINT #SPACE2 

Print current line state 



CLR 


R3 


MOV 


LSTATE(R1)>R2 


CMP 


R2, 3TBIT<R3) 


BEQ 


6* 


ADD 


#2, R3 


CMP 


R3, #NUMST 


BLO 


4* 


MOV 


#RNMS, RO 


CMP 


R2, #S**RUN 


BLOS 


25* 


MOV 


#WTMS/ RO 


. PRINT 




BR 


5* 


MOV 


STNAM(R3), STP 



IS THIS A PRIMARY LINE? 

BR IF PRIMARY LINE 

DETACHED JOB? 

BR IF NOT 

PRINT "Detached" 

GET OWNER LINE NUMBER 

PRINT OWNER LINE NUMBER 

ENCLOSE VIRTUAL LINE # IN ( > 

IS THIS A PRIMARY LINE? 

BR IF YES 

POINT TO VIRTUAL LINE # TABLE FOR OWNER JOB 

GET HIGHEST VIRTUAL LINE # 

START WITH VIRTUAL LINE #1 

SEARCH FOR LINE WITHIN TABLE 

BR IF FOUND RIGHT ONE 

INC VIRTUAL LINE # 

LOOP TILL FOUND 

SAY THIS IS LINE 

PRINT VIRTUAL LINE # 

CLOSE VIRTUAL LINE # 

1 OR 2 DIGIT VIRTUAL LINE #? 

BR IF 2 DIGIT 

PRINT A SPACE 

PRINT 2 SPACES 



GET JOB'S PRIORITY VALUE 
PRINT IN 3 SPACES 

PRINT 2 SPACES 



. PRINT #STPBUF 



GET USER 'S CURRENT EXECUTION STATE 

LOOK UP THE STATE 

BR WHEN FOUND 

TRY NEXT FLAG 

DONE ALL? 

BR IF NOT 

ASSUME 'RN' STATE 

IS JOB EXECUTABLE? 

USE 'RN' IF SO 

GENERIC WAIT IF STATE NOT RN OR IN TABLE 

PRINT 'RN' OR 'WT' AS STATE 

MOVE STATE NAME TO PRINT BUFFER 
PRINT STATE NAME 



i 

i 

i 



TSKSHO - 


— Keyboard SHOW 


Command 




JOBS 






' 116 








117 








118 


004352 


032761 


OOOOOOG 


' 119 


004360 


001004 




120 


004362 






121 


004370 


000413 




' 122 








123 








. 124 








' 125 


004372 


032761 


OOOOOOG 


126 


004400 


001404 




, 127 


004402 






•- 128 


004410 


000403 




129 


004412 






- 130 








' 131 








132 








133 


004420 






* 134 


004430 






135 


004440 


016105 


OOOOOOG 


, 136 


004444 


066105 


OOOOOOG 


* 137 


004450 


005205 




133 


004452 


0062015 




139 


00<I154 


004767 


OOOOOOG 


' 140 


004460 






141 


004466 






- 142 








^ 143 








144 








145 


004474 


016705 


OOOOOOG 


* 146 


004500 


166105 


OOOOOOG 


147 


004504 


005205 




148 


004506 


005004 




* 149 


004510 


012703 


000074 


150 


004514 


004767 


OOOOOOG 


151 


004520 


010046 




« 152 


004522 


020527 


000144 


153 


004526 


103405 




154 


004530 


012703 


000003 


' 155 


004534 


004767 


OOOOOOG 


156 


004540 


000406 




157 


004542 






< 158 


004552 


004767 


OOOOOOG 


159 


004556 


012605 




160 


004560 






* 161 


004570 


004767 


OOOOOOG 


162 


004574 






163 








* 164 








165 








166 


004602 






* 167 


004610 


016104 


OOOOOOG 


168 


004614 


016105 


OOOOOOG 


169 


004620 


004767 


OOOOOOG 


* 170 








171 
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rr int 



"3WP" 


if job is outswapped 


BIT 


#«INC0R,LSW<R1) i IS JOB IN MEMORY 


BNE 


12* ;BR IF YES 


. PRINT 


#SWPTX ; PRINT "SWP" 


BR 


13* 



NOW? 



Print "Lock" if job is locked in memory 

12*: BIT #*MLOCK, LSW6(R1); IS JOB LOCKED IN MEMORY? 

BEQ 14* ;BR IF NOT 

.PRINT #LOCKTX > PRINT "LOCK" 

BR 13* 

14*: .PRINT #SPACE5 ; PRINT SPACES 



Pring current memory size 



13*: 



. TTYOUT 
. TTYOUT 
MOV 
ADD 
INC 
ASR 
CALL 
. PRINT 
. PRINT 



#40 

#40 

LNBLKS<R1). R5 

LNSBm(Rl>. R5 

R5 

R5 

PRTDC3 

#KBMSG 

#SPACE2 



Print job connect time 



23*: 
24*: 



MOV 

SUB 

INC 

CLR 

MOV 

CALL 

MOV 

CMP 

BLO 

MOV 

CALL 

BR 

. TTYOUT 

CALL 

MOV 

. TTYOUT 

CALL 

. PRINT 



MINTIM, R5 

LC0NTM<R1),R5 

R5 

R4 

#60. , R3 

DIVIDE 

R0> -<SP) 

R5, #100. 

23* 

#3/ R3 

PRTFIX 

24* 

#40 

PRTDC2 

(SP)+. R5 

#': 

PRTDC2 

#C0L00 



Print cpu time 



. PRINT 
MOV 
MOV 
CALL 



#SPACE2 
LCPUHKRl ) 
LCPULO(Rl) 
PRTTMV 



R4 
R5 



PRINT A SPACE 

PRINT ANOTHER SPACE 

GET # 256-WaRD BLOCKS ASSIGNED TO JOB 

ADD # BLOCKS USED FOR PLAS REGIONS 

ROUND UP 

CVT TO # K BYTES 

PRINT # K-BYTES OF MEMORY USED 

PRINT "Kb" 

PUT IN 2 SPACES 



GET CURRENT MINUTE TIMER VALUE 

CALCULATE CONNECT TIME FOR LINE 

CHARGE A MINIMUM OF 1 MINUTE 

CLEAR HIGH-ORDER FOR DIVIDE 

SET TO DIVIDE BY 60. 

DIVIDE BY 60 TO GET HOURS AND MINUTES 

SAVE NUMBER OF MINUTES 

DO WE NEED MORE THAN 2 DIGITS FOR HOURS? 

BR IF NOT 

PRINT 3 DIGITS 

PRINT # HOURS 

PRINT A SPACE 

PRINT # HOURS WITH 2 DIGITS 
GET # MINUTES CONNECTED 
PRINT COLON AFTER HOURS 
PRINT # MINUTES CONNECTED 
PRINT ':00' SECONDS 



PRINT 2 SPACES 

GET HIGH ORDER CPU TIME (CLOCK TICKS) 
GET LOW ORDER CPU TIME (CLOCK TICKS) 
PRINT TIME VALUE 



Print name of running program 



t 



I 

i 
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4 

( 
t 

i 



172 








173 


004624 






174 


004632 


016100 


OOOOOOG 


175 


004636 


004767 


OOOOOOG 


176 


004642 


016100 


OOOOOOG 


177 


004646 


004767 


OOOOOOG 


178 








179 








ISO 








181 


004652 






182 


004660 


004767 


OOOOOOG 


183 


004664 






1S4 








185 








186 








187 


004672 


062701 


000002 


188 


004676 


020127 


OOOOOOG 


189 


004702 


101002 




190 


004704 


000167 


177122 


191 








192 








193 








194 


004710 


105067 


OOOOOOG 


195 


004714 


012605 




196 


004/16 


012604 




197 


004720 


012603 




198 


004722 


012602 




199 


004724 


012601 




200 


004726 


000207 




201 








202 








203 








204 








205 








206 


004730 


ooooooe 




207 


004732 


ooooooe 




208 


004734 


OOOOOOG 




209 


004736 


0000000 




210 


004740 


OOOOOOG 




211 


004742 


OOOOOOG 




212 


004744 


OOOOOOG 




213 


004746 


OOOOOOG 




214 


004750 


OOOOOOG 




215 


004752 


OOOOOOG 




216 


004754 


OOOOOOG 




217 


004756 


OOOOOOG 




218 


004760 


OOOOOOG 




219 


004762 


OOOOOOG 




220 


004764 


OOOOOOG 




221 


004766 


OOOOOOG 




222 


004770 


OOOOOOG 




223 


004772 


OOOOOOG 




224 


004774 


OOOOOOG 




225 


004776 


OOOOOOG 




226 




000050 




227 








228 











. PRINT 


#SPACE2 






MOV 


LPRGKRl), 


RO 




CALL 


PRTR50 






MOV 


LPRG2(R1), 


RO 




CALL 


PRTR50 




i Prin 


t user 


name or PPN 





.PRINT #SPACE3 
CALL PRTUNM 
.PRINT #CRLF 



30*: 



Do next line 

ADD 
CMP 
BHI 
JMP 

Finished 



99*: 



CLRB 

MOV 

MOV 

MOV 

MOV 

MOV 

RETURN 



#2, Rl 

Rl, #LSTSL 

99* 

1* 



SJSPPN 
(SP)+, R5 
<SP)+, R4 
(SP)+, R3 
<SP)+, R2 
<SP)+, Rl 



JOB STATE CODES 



STBIT: 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



NUMST 



S*RT 

S*TTSC 

S*TTFN 

S*OTFN 

S*HICP 

S*TWFN 

S*OTLO 

S*IOFN 

S*LOW 

S*INWT 

3*0TWT 

S«TMWT 

S*SPND 

S*MSWT 

S*(]IUSR 

S*IOWT 

S*SFWT 

S*QMIO 

S*SPDB 

S*SPCB 

<. -STBIT.: 



GET 1ST 3 CHARS OF NAME 

PRINT THEM 

PRINT 2ND 3 CHARS 



(RAD50) 



J PRINT 3 SPACES 
i PRINT USER NAME 



INDEX # 



GET NEXT LINE 
CHECKED ALL? 
BR IF YES 
DO NEXT LINE 



TURN OFF /PPN SWITCH 



REAL-TIME 

TT INPUT DONE AND SINGLE CHAR ACTIVATION 

TT INPUT DONE 

TT OUTPUT BUFFER EMPTY 

INTERACTIVE JOB COMPUTATION 

TIMED WAIT FINISH 

OUTPUT BUFFER ALMOST EMPTY 

I/O WAIT COMPLETION 

LOW PRIORITY COMPUTATION 

INPUT WAIT 

OUTPUT WAIT 

TIMED WAIT 

JOB HAS DONE A . SPND 

MESSAGE WAIT 

WAITING FOR USR 

WAITING FOR I/O TO FINISH 

WAITING FOR SHARED FILE RECORD 

WAITING FOR MAPPED I/O BUFFER 

WAITING FOR SPOOLED FILE SPACE 

WAITING FOR SPOOLED FILE 



I 

i 

i 
c 

f 
i 
4 
I 
I 



PARALLEL VECTOR OF STATE NAMES 



i 

f 



I 

< 



TSKSHO - 


~ Keyb 




JOBS 


229 




230 


OOSOOO 


231 


005002 


232 


005004 


233 


005006 


234 


005010 


235 


005012 


236 


005014 


237 


005016 


238 


005020 


239 


005022 


240 


005024 


241 


005026 


242 


005030 


243 


005032 


244 


005034 


245 


005036 


246 


005040 


247 


005042 


248 


005044 


249 


005046 


250 




251 


005050 


252 
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111 
111 
111 
111 
110 
110 
110 
114 
124 
124 
123 
123 
115 
125 
111 
123 
115 
123 
123 

130 



116 
116 
116 
116 
111 
111 
111 
117 
111 
117 
114 
114 
123 
123 
117 
106 
111 
120 
120 

130 



STNAf 


1: . ASCII 


/RT/ 


* S$RT 




. ASCII 


/IN/ 


; S*TTSC 




. ASCII 


/IN/ 


; S«TTFN 




. ASCII 


/IN/ 


SfOTFN 




. ASCII 


/IN/ 


, S*HICP 




. ASCII 


/HI/ 


S*TWFN 




. ASCII 


/HI/ 


S*OTLO 




. ASCII 


/HI/ 


SflOFN 




. ASCII 


/LO/ 


S$LOW 




. ASCII 


/TI/ 


S*INWT 




. ASC 1 1 


/TO/ 


S*OTWT 




. ASCII 


/SL/ 


S*TMWT 




. ASC I I 


/SL/ 


S*SPND 




. ASC 1 1 


/MS/ 


S*MSWT 




. ASCII 


/US/ 


S*QUSR 




. ASCII 


/lO/ 


S*IOWT 




. ASC I I 


/SF/ 


S*SFWT 




. ASC 1 1 


/MI/ 


S*QMIO 




. ASCII 


/SP/ 


S*SPDB 




. ASCII 


/SP/ 


s*spce 


STPBl 


JF- ASCII 
. EVEN 


/XX/<200> 





I 

€ 

i 
I 
I 
i 
I 
I 
f 
I 
( 
I 

i 



4 
I 
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( 
I 

i 
« 

c 
c 



i 

2 








3 








4 








5 








6 


005054 


010146 




7 


005056 


012701 


0000000 


8 


005062 


020127 


ooooooe 


9 


005066 


103024 




10 


005070 


005761 


0000000 


11 


005074 


001003 




12 


005076 


062701 


OOOOOOG 


13 


005102 


000767 




14 


005104 






15 


005112 






16 


005120 


004767 


0000000 


17 


005124 


062701 


OOOOOOG 


IS 


005130 


020127 


OOOOOOG 


19 


005134 


103771 




20 


005136 


000403 




21 


005140 






22 


005146 


012601 




23 


005150 


000207 





i SHOW 


QUEUE 




i 

SHOQUE: 


MOV 


Rl, -(SP) 




MOV 


#SDCB,R1 


4*: 


CMP 


Rl, #SDCBND 




BHIS 


3* 




TST 


SDFHD<R1> 




BNE 


1* 




ADD 


#SDCBSZ,R1 




BR 


4* 


1*: 


. PRINT 


#QHDMS1 




. PRINT 


#QHDMS2 


5*: 


CALL 


LSTSPL 




ADD 


#SDCBSZ, Rl 




CMP 


R1>#SDCBND 




BLO 


5* 




BR 


2« 


3*: 


. PRINT 


#NDFIL 


2*; 


MOV 


(SP)+-, Rl 




RETURN 





POINT TO FIRST SDCB 

CHECKED ALL SDCB'S? 

BR IF YES — THERE ARE NO QUEUED FILES 

ANY FILES QUEUED FOR THIS DEVICE? 

BR IF YES 

POINT TO NEXT SDCB 

GO CHECK IT 

PRINT QUEUE HEAD MESSAGE 

Underline the heading 

LIST INFO ABOUT FILES QUEUED FOR THIS DEV 

POINT TO NEXT SDCB 

DONE ALL SDCB'S? 

BR IF MORE TO DO 

FINISHED 

THERE ARE NO PENDING SPOOL FILES 



i 

f 
f 

c 

f 



i 

f 
f 
f 
I 

I 

( 
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3 








4 








5 








6 








7 








S 








9 








10 








11 








12 








13 


005152 






14 








15 








16 








17 


005152 


005767 


OOOOOOG 


18 


005156 


001410 




19 








20 








21 








22 








23 








24 


005160 


012704 


OOOOOOS 


2S 








26 


005164 


112724 


000077 


27 


005170 


112324 




28 


005172 


001376 




29 


005174 


000167 


OOOOOOG 


30 








31 








32 








33 


005200 






34 


005206 


000207 
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. 3BTTL COMMANDS 

SHOW COMMANDS Calls TSXUCL to display specific or all command definitions. 



Inputs: 
R3 
R4 

Outputs: 
R3 
R4 



Points to next keyword in command buffer or end of command 
Points to next word in SHOW command table 



Points to end of input command in CMDBUF 

Points to end of string to be passed to TSXUCL in CMDBUF 



SHDCMD: 

See if there are anu user defined commands 



TST 
BEQ 



UCLBLK 
1* 



i Any user defined commands? 
; Br if not 



There may be user defined commands. 

Pass any specific command to be displayed to TSXUCL. 

Enter TSXUCL to show the commands. 



MOV 



#CMDBUF, R4 



3*: 



MOVE 


#'?, <R4) + 


MOVB 


(R3)+> (R4)+ 


BNE 


3* 


JMP 


CALUCL 



.Point to beginning of command buffer 
; Probably holds "SHOW ... "at this point 
; Tell TSXUCL we want to show commands 
jPass next character from command buffer 
; Until remainder of command line passed 
iCall TSXUCL 



There are no user defined commands 

1*: .PRINT #NOUDC ; No user defined commands 

RETURN 



I 

€ 



I 

C 
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2 








3 








4 








5 


005210 


010246 




6 








7 








8 








9 


005212 






10 


005220 






11 


005226 






12 








13 








14 








15 


005234 


005002 




16 


005236 


004767 


000016 


17 


005242 


062702 


000002 


18 


005246 


020267 


0000000 


19 


005252 


101771 




20 








21 








22 








23 


005254 


012602 




24 


005256 


000207 





. SBTTL DEVICES 

i SHOW DEVICES 

i 

SHODEV: MOV R2, -(SP) 
; Print heading lines 

i 

.PRINT #DVSHH1 
.PRINT #DVSHH2 
.PRINT #DVSHH3 

; List status of each device that is installed in the system 

j Start with the first device 
1*: CALL DEVDSP ; Display status about this device 

; Get next device index 
iFinished all devices? 
J Loop if not 



i 

I 
I 
r 
I 

r 



CLR 


R2 


CALL 


DEVDSP 


ADD 


#2. R2 


CMP 


R2. NUMDEV 


BLOS 


1* 


Finished 




MOV 


<SP.)+, R2 


RETURN 





c 

i 

f 



i 
I 
I 



I 
I 
c 
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4 
5 
6 

7 005260 

8 005262 
9 

10 
11 
12 005264 
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13 
14 



21 



005270 
005274 

15 005300 

16 

17 

18 

19 005304 
005310 
005314 

22 005320 

23 005324 
24 

25 

26 

27 005330 
005334 
005340 

30 005344 

31 005350 
32 

33 
34 

35 005354 

36 005360 

37 005364 

38 005370 

39 005374 

40 005376 
005402 
005406 



28 
29 



41 
42 
43 
44 
45 

46 005412 

47 005416 

48 005422 

49 005426 

50 005432 
51 

52 
53 

54 005436 

55 005442 

56 005446 

57 005452 



010346 

010546 



012703 



004767 



012703 
004767 
016205 
012703 
004767 



012703 
004767 
016205 
012703 
004767 



012703 
004767 
016205 
020527 
103440 
162705 
012703 
004767 



012703 
004767 
016205 
012703 
004767 



012703 
004767 
016205 
012703 



000002 
OOOOOOG 
OOOOOOG 
OOOOOOG 



000003 

OOOOOOG 

OOOOOOG 

000005 

OOOOOOG 



000003 

OOOOOOG 

OOOOOOG 

000006 

OOOOOOG 



000003 
OOOOOOG 
OOOOOOG 
000100 

000006 
000006 
OOOOOOG 



000003 

OOOOOOG 

OOOOOOG 

000006 

OOOOOOG 



000002 
OOOOOOG 
OOOOOOG 
000005 



Display a line of status information for a device. 

Inputs: 
R2 = Device index number. 



DEVDSP: MOV 
MOV 



R3, -<SP) 
R5, -(SP) 



Print the device name 



MOV 


#2, R3 


CALL 


PRTSPC 


MOV 


PNAME(R2), RO 


CALL 


PRTR50 



Print the current I/O count 



MOV 


#3, R3 


CALL 


PRTSPC 


MOV 


HANI0C(R2),R5 


MOV 


#5, R3 


CALL 


PRTFIX 



Print the device status word 



MOV 


#3.. R3 


CALL 


PRTSPC 


MOV 


DVSTAT(R2),R5 


MOV 


#6, R3 


CALL 


OCTFIX 



i Print 2 spaces 

i Get RAD50 device name 
J Print it 



.; Pr int spaces 

i Get # pending I/O operations for dev 
iPrint in 5 column field 
; Print it 



; Print spaces 

; Get status luord value 
i Print 6 digits 
; Print octal value 



Print the handler virtual base address 

i Print spaces 



MOV 


#3, R3 


CALL 


PRTSPC 


MOV 


HANENT(R2)/ R5 


CMP 


R5, #100 


BLO 


9* 


SUB 


#6. R5 


MOV 


#6, R3 


CALL 


OCTFIX 



Get base address of handler 

Is this a real or pseudo handler? 

Branch of pseudo handler 

Get actual handler base address 

Print 6 digits 

Print octal value 



Print the handler physical base address 



i Print spaces 



MOV 


#3, R3 


CALL 


PRTSPC 


MOV 


HAIMPAR(R2), R5 


MOV 


#6. R3 


CALL 


OCTFIX 



Print the handler size 



MOV 


#2, R3 


CALL 


PRTSPC 


MOV 


HANSIZ(R2), R5 


MOV 


#5. R3 



i Get physical base address of handler 
} Print 6 digits 
iPrint octal value 



i Print 2 spaces 



4 
f 
I 
C 

t 
f 
I 
f 
€ 



I 

f 

i 



i Get the handler size 
; Print 5 digits 



I 
I 
I 
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59 005^62 012703 000002 

60 005466 004767 OOOOOOG 
61 

62 

63 

64 005472 004767 000014 

65 

66 

67 

68 005476 

69 

70 

71 

72 005504 012605 

73 005506 012603 

74 005510 000207 



CALL PRTFIX 
MOV #2, R3 
CALL PRTSPC 



i Print decimal value 
; Print spaces 



Print CSR and Vector addresses for this device 

CALL DSPCSR 

Terminate this print lint? 

9*: . PRINT #CRLF 

Finished 

MOV <SP)+, R5 
MOV (SP)-+-. R3 

RETURN 



J End the print line 



I 

i 
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1 

2 








3 








4 








5 








6 








7 005512 


010146 




r 


S 005514 


010246 






9 005516 


0103^6 






10 005520 


010446 






11 005522 


010546 






12 








13 








14 








15 005524 


016767 


OOOOOOG 


172246 


16 005532 


016267 


OOOOOOG 


172242 


17 








IS 








19 








20 005540 








21 005546 








22 005566 


103547 






23 








24 








25 








26 005570 








27 005626 


103527 






28 005630 


016767 


00000 IC 


172154 


29 








30 








31 








32 005636 








33 005676 


016767 


000001 C 


172104 


34 








35 








36 








37 005704 


016700 


172102 




38 005710 


056700 


172074 




39 005714 


001474 






40 






i 


41 






i 


42 






i 


43 






i 


44 005716 


005001 






45 005720 


012704 


OOOOOOG 




46 005724 


012400 






47 005726 


002013 






48 005730 


006300 






49 005732 


060004 






50 005734 


005714 






51 005736 


002007 






52 005740 


005724 






53 005742 


012401 






54 005744 


010100 






55 005746 


004767 


000226 




56 005752 


010005 






57 005754 


000402 







Extract CSR and Vector addresses from a device handler and display th 

Inputs: 
R2 = Device index number. 



em. 



DSPCSR: MOV 
MOV 
MOV 
MOV 
MOV 



R 1 , - < SP ) 
R2, -(SP) 
R3. -<SP) 
R4, -(SP) 
R5, -<SP) 



Build file spec for device handler 

MOV SYNAME, HANNAM i Set physical device name for SY device 
MOV PNAME<R2), HANNAM+2 i Set RAD50 device name 

Try to open the device handler file 

• SERR ; Don't abort on lookup errors 

.LOOKUP #XAREA, #1,#HANWAM j Try to open handler file 
BCS 9* i Br if unable to open handler 

Read block of handler and save information about CSR address 

. READW #XAREA.. #1.. #BLK0, #256. , #0 j Read block of handler 

BCS 9* 

MOV BLKO+H. CSR, DCSR ; Save CSR info 

Read blocks 1 and 2 of handler 

.READW #XAREA, #1, #BLKO, #512. , #1 ; Read blocks 1 and 2 of handler 
MOV BLKO-1000+H. VEC> DVEC ; Save vector info 

If both the CSR and vector are zero* don't display anything 



MOV 
BIS 
BEQ 



DCSR, RO 
DVEC, RO 
9* 



i Get CSR value 

j Add Vector value 

> Br if both are zero 



Determine if this is a handler for a PRO device with floating 
vector and CSR addresses. 



Assume this is not a PRO device 

R4 /Point to handler vector ceil 

Get address of vector 

Br if not pointer to vector list 

Get byte offset to vector list 

Point to start of vector list 

Is this a PRO device uiith floating addresses? 

Br if not 

Point to word with PRO device ID 

Get PRO device ID 

Get PRO device ID 

Get CSR address for PRO device 

Get to R5 for OCTFIX 

Go display it 



CLR 


Rl i 


MOV 


#BLK0-1000+H. VEC, 


MOV 


<R4)+, RO ; 


BGE 


3* i 


ASL 


RO ; 


ADD 


RO, R4 ; 


TST 


<R4) i 


BGE 


3* ; 


TST 


<R4)+ ; 


MOV 


(R4)+, Rl ; 


MOV 


R1,R0 i 


CALL 


PIDCSR ; 


MOV 


RO, R5 ; 


BR 


4* i 



f 
I 
i 
f 

f 
i 

i 

i 

« 
I 

( 



f 
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58 








59 








60 








61 


005756 


016705 


172030 


62 


005762 


012703 


000002 


63 


005766 


004767 


OOOOOOG 


64 


005772 


012703 


000006 


65 


005776 


004767 


OOOOOOG 


66 








67 








68 








69 


006002 


012703 


000002 


70 


006006 


004767 


OOOOOOG 


71 


006012 


016705 


171772 


72 


006016 


001433 




73 


006020 


002405 




74 


006022 


012703 


000003 


75 


006026 


004767 


OOOOOOG 


76 


006032 


000425 




77 








78 








79 








80 


006034 


005701 




81 


006036 


00140^ 




82 


006040 


i 1 00 




83 


006042 


004767 


000154 


84 


006046 


010001 




85 


006050 


011405 




86 


006052 


060105 




87 


006054 


012703 


000003 


88 


006060 


004767 


OOOOOOG 


89 


006064 


062704 


000006 


90 


006070 


005714 




91 


006072 


003405 




92 


006074 


012703 


000001 


93 


006100 


004767 


OOOOOOG 


94 


006104 


000761 




95 








96 








97 








98 


006106 






99 


006114 






100 


006122 


012605 




101 


006124 


012604 




102 


006126 


012603 




103 


006130 


012602 




104 


006132 


012601 




105 


006134 


000207 
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Display the CSR value 



3*: 
4«: 



MOV 


DCSR, R5 


MOV 


#2, R3 


CALL 


PRTSPC 


MOV 


#6, R3 


CALL 


OCTFIX 



Display vector addresses 



MOV 


#2, R3 


CALL 


PRTSPC 


MOV 


DVEC, R5 


BEQ 


9* 


BLT 


1* 


MOV 


#3, R3 


CALL 


OCTFIX 


BR 


9* 



1*: 



5*: 



9$: 



iGet CSR value 
; Print 2 spaces 

; Print 6 digits 
iPrint octal value 



; Print 2 spaces 

j Single vector or vector list? 

; Br i f no vec tor 

j Br if multiple vector 

; Print 3 digits 

jPrint octal value 



We have multiple vectors <and possibly floating PRO vectors) 

; Do we have floating vectors for PRO device? 

; Br if not 

i Get PRO device ID 

; Get base vector based on device ID 

; Save base vector location for device 

j Get address of next vector 

; Add base vector address 

; Print 3 digits 

; Print octal value 

; Point to next vector entry 

i Are there more vectors? 

i Br if not 

i Print 1 space 

j Print next vector 



iClose handler file 
i Reset error aborts 





TST 


Rl 




BEQ 


5* 




MOV 


Rl, RO 




CALL 


PIDVEC 




MOV 


RO, Rl 




MOV 


(R4), R5 




ADD 


R1,R5 




MOV 


#3, R3 




CALL 


OCTFIX 




ADD 


#6, R4 




TST 


<R4) 




BLE 


9* 




MOV 


#1,R3 




CALL 


PRTSPC 




BR 


5* 


Fini 


shed 






. CLOSE 


#1 




. HERR 






MOV 


(SP)+,R5 




MOV 


<SP>+, R4 




MOV 


<3P}+, R3 




MOV 


(SP)+, R2 




MOV 


(SP)+, Rl 




RETURN 





i 
f 
f 

€ 

I 
I 
I 
€ 
C 



i 

i 
i 
i 
C 
t 
i 
i 
I 



( 
i 

f 
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c 
I 
c 
i 

€ 
I 
< 

i 

i 

i 

i 
t 



1 








2 








3 








4 








5 








6 








7 








8 








9 








10 








11 


006136 


010146 




12 


006140 


012701 


0000000 


13 


006144 


021127 


177777 


14 


006150 


001410 




15 


006152 


020021 




16 


006154 


001373 




17 


006156 


162701 


000002G 


18 


006162 


006201 




19 


006164 


010100 




20 


006166 


000241 




21 


006170 


000401 




22 


006172 


000261 




23 


006174 


012601 




24 


006176 


000207 




25 








26 








27 








28 








29 








30 








31 








32 








33 








34 








35 








36 


006200 


004767 


177732 


37 


006204 


103405 




38 


006206 


072027 


000007 


39 


006212 


062700 


174000 


40 


006216 


000241 




41 


006220 


000207 




42 








43 








44 








45 








46 








47 








48 








49 








50 








51 








52 








53 


006222 


004767 


177710 


54 


006226 


103405 




55 


006230 


072027 


000003 


56 


006234 


062700 


000300 


57 


006240 


000241 





Convert a PRO device ID number into the option slot # for the device. 

Inputs: 
RO = PRO device ID. 

Outputs: 
C-flag set ==Z> Could not find device ID. 
RO = Option slot number. 



Point to entry for slot 

Checked all entries? 

Br if yes 

Search for correct entry 

Loop if this is not it 

Get byte index for slot 

Get ujord index 

Return in RO 

Signal success on return 

(Signal failure on return 



Determine the address of tht? CSR for a PRO device given the device ID. 

Inputs: 
RO = PRO device ID 

Outputs: 
C-flag set ==> Do not recognize the device. 
RO = CSR address 



PIDSLT: 


MOV 


R 1 > - < SP ) 




MOV 


#PROSLT, Rl 


1$: 


CMP 


(Rl),#-1 




BEQ 


2* 




CMP 


RO, <R1)+ 




BNE 


1* 




SUB 


#PR0SLT+2>R1 




ASR 


Rl 




MOV 


Rl, RO 




CLC 






BR 


9* 


2*: 


SEC 




9*: 


MOV 


(SP)+, Rl 




RETURN 





PIDCSR: CALL 
BCS 
ASH 
ADD 
CLC 

9*: RETURN 



PIDSLT 

9* 

#7. , RO 

#174000, RO 



i Determine slot where device is installed 

i Br if don't recognize device 

; CSR addresses are 200 apart per slot 

; CSR for slot is here 

/Signal success on return 



Determine the base vector for a PRO device given the device ID. 

Inputs: 
RO = PRO device ID 

Outputs: 
C-flag set ==> Did not recognize device. 
RO = Base vector location for device. 



Determine what slot has controller 
Br if don't recognize device 
Vectors are 8 bytes apart per slot 
Vector for slot is at 300 
Signal success on return 



I 
I 

€ 

< 

I 

I 

I 

( 

t 

I 

€ 

I 

I 

i 

t 



IDVEC: 


CALL 


PIDSLT 




BCS 


9« 




ASH 


#3. , RO 




ADD 


#300, RO 




CLC 





t 
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f-^rj -r-r-i 



C 

i 
( 
I 

C 
< 
I 

( 
I 



3 
4 

5 006244 

6 006246 
7 

e 

7 

10 006254 

11 006260 

12 006266 

13 006270 

14 006274 

15 006300 

16 006302 

17 006310 
IS 006314 

19 006320 

20 006330 
21 

22 

23 

24 006336 

2& 00e342 

26 006350 

27 006352 

28 006356 

29 006362 

30 006364 

31 006372 

32 006376 

33 006402 

34 006412 
35 

36 
37 

38 006420 

39 006424 

40 006430 

41 006432 

42 006436 

43 006442 

44 006450 

45 006454 

46 006460 

47 006470 

48 006474 

49 006476 

50 006502 

51 006506 

52 006512 

53 006522 

54 006526 

55 006530 

56 006534 

57 006540 



010246 



012702 
026762 
001423 
062702 
020227 
103767 

016700 
004767 



O 1 c /Okl 

026762 
001423 
062702 
020227 
103767 

016700 
004767 



012702 
005762 
001461 
016200 
004767 

016200 



016200 
001434 
004767 
016200 
004767 

016200 
001417 
004767 
016205 
001412 



Display assignments 

SHOASN: MOV R2, -(SP) 
.PRINT #ASNHD1 



; PRINT HEADING 



If there is no assignment for SY, print default assignment 



0000000 

OOOOOOG OOOOOOG 5«: 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV #ASNTBL, R2 

CMP R50SY, AT*L0G<R2). 

BEQ 6* 

ADD #AT**32,R2 

CMP R2, #ASNEND 

BLO 5* 

.PRINT #SYASHD 

MOV SYNAME, RO 

CALL PRTR50 

. TTYOUT # ' : 

. PRINT #CRLF 



If there is no assignment for DK^ print default assignment 



Point to assign table 

Is this entry for SY? 

Br if yes 

Point to next entry 

Checked all assign entries? 

Loop if not 

Print "SY — > " 

Get default 



device 



OOOOOOG 6$: 

OOOOOOG OOOOOOG /*: 

OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 



MOV #ASNTBL, R2 

CMP R50DK, AT$L0G<R2} 

BEQ 8$ 

ADD #AT**SZ,R2 

CMP R2i #ASNEND 

BLO 7* 

.PRINT #DKASHD 

MOV SYNAME, RO 

CALL PRTR50 

. TTYOUT # ' : 

.PRINT #CRLF 



Point to assign table 

Is this entry for DK? 

Br if yes 

Point to next entry 

Checked all assign entries? 

Loop if not 

Print "DK — > " 

Get default device 

Print it 



Now print user assign table entries 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
000002G 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 



8*; 
2$: 



MOV 


#ASNTBL, R2 




TST 


AT*L06(R2) 




BEQ 


3* 




MOV 


AT«L0G(R2), 


RO 


CALL 


PRTR50 




. PRINT 


#ASNHD2 




MOV 


AT*DEV(R2). 


RO ; 


CALL 


PRTR50 




. TTYOUT 


#': 




MOV 


AT«FIL<R2), 


RO ; 


BEQ 


4* 




CALL 


PRTR50 




MOV 


AT$FIL+2<R2),R0 i 


CALL 


PRTR50 




. TTYOUT 


#'. 




MOV 


AT*EXT(R2>, 


RO i 


BEQ 


4* 




CALL 


PRTR50 




MOV 


AT*SIZ<R2), 


R5 ; 


BEQ 


4* 





POINT TO ASSIGN TABLE 

IS THIS ASSIGN TABLE ENTRY IN USE? 

BR IF NOT 

; GET LOGICAL DEVICE NAME 
DISPLAY LOGICAL DEVICE NAME 
PRINT ARROW 

GET PHYSICAL DEVICE NAME 
PRINT IT 
PUT IN COLON 

GET 1ST 3 CHARS OF FILE NAME 
BR IF NO NAME 
PRINT 1ST PART OF NAME 
GET 2ND 3 CHARS OF FILE NAME 
PRINT THE NAME 
PUT IN A PERIOD 
GET EXTENSION 
BR IF NONE SPECIFIED 
DISPLAY THE EXTENSION 
GET FILE SIZE 
BR IF NONE SPECIFIED 



c 

I 

I 
f 
€ 
I 



t 
I 

I 
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58 


006542 








. TTYOUT 


#'C 


59 


006552 


004767 


OOOOOOG 




CALL 


PRTDEC 


60 


006556 








. TTYOUT 


#'3 


61 


006566 






4*: 


. PRINT 


#CRLF 


62 


006574 


062702 


OOOOOOG 


3*: 


ADD 


#ATf «SZ. R2 


63 


006600 


020227 


OOOOOOG 




CMP 


R2, #ASNEND 


64 


006604 


103707 






BLO 


2* 


65 


006606 


012602 






MOV 


(SP)+, R2 


66 


006610 


000207 






RETURN 





START SIZE SPEC 

DISPLAY THE FILE SIZE 

TERMINATE THE SIZE SPEC 

TERMINATE THE LINE 

POINT TO NEXT ASSIGN ENTRY 

HAVE WE REACHED END OF TABLE? 

BR IF NOT 



i 
I 
f 

f 



f 
i 
( 



TSKSHO - 
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Command 


1 

2 
3 


ALLOCATIONS 










4 








5 


006612 


010146 




6 


006614 


010246 




7 


006616 


010346 




8 


006620 


010546 




9 








10 








11 








12 


006622 


012702 


OOOOOOG 


13 


006626 


105762 


0000000 


14 


006632 


001011 




15 


006634 


062702 


OOOOOOG 


16 


006640 


020227 


0000000 


17 


006644 


103770 




18 








19 








20 








21 


006646 






22 


006654 


000460 




23 








24 








25 








26 








27 


006656 






28 


006664 






29 


006672 






30 








31 








32 








33 


006700 


012702 


OOOOOOG 


34 


006704 


116205 


OOOOOOG 


35 


006710 


001435 




36 








37 








38 








39 


006712 






40 


006722 


016200 


OOOOOOG 


41 


006726 


004767 


OOOOOOG 


42 


006732 


004767 


OOOOOOG 


43 


006736 


012703 


000004 


44 


006742 


004767 


OOOOOOG 


45 








46 








47 








48 


006746 


012703 


000002 


49 


006752 


010501 




50 


006754 


006205 




51 


006756 


004767 


OOOOOOG 


52 


006762 


012703 


000003 


53 


006766 


004767 


OOOOOOG 


54 








55 








56 








57 


006772 


004767 


OOOOOOG 



. SBTTL 
Show allocations 



ALLOCATIONS 



SHOALC: MOV 
MOV 
MOV 
MOV 



Rl, -(SP) 
R2, -<SP) 
R3, -<SP) 
R5, -(SP) 



1$: 



Make a fast scan to see if there are any allocated devices 



/Point to start of allocation table 

ils this entry used? 

i Br if yes 

; Point to next entry 

iChecked all entries? 

i Loop if not 



There are no allocated devices 



MOV 


#ALCTBL, R2 


T3TB 


AD$J0B<R2) 


BNE 


2* 


ADD 


#AD**SZ. R2 


CMP 


R2, #ALCEND 


BLO 


1* 



.PRINT #TM*NAD 
BR 9* 



; No allocated devices 
; Finished 



There are some allocated devices. 
Print heading lines. 



>«: .PRINT #CRLF 

.PRINT #ALCHD1 
.PRINT #ALCHD2 



Print a blank line 
Print heading line 1 
Print heading line 2 



Begin loop to print information about each allocated device 



MOV #ALCTBL. R2 
3*: MOVE AD*J0B(R2), R5 
BEQ 4* 

Print the device name 

. TTYOUT #40 

MOV AD*DVU(R2), RO 

CALL CVDVNM 

CALL PRTR50 

MOV #4. . R3 

CALL PRTSPC 



iPoint to start of allocation table 
J Is this entry used? 
i Br if not 



Put a space in front of the device name 

Get device and unit number 

Convert dev and unit # to device name 

Print the device name 

Print 4 spaces 



Print the number of the job to which the device is allocated 

;Print job number in 2 col field 

i Save job index number in Rl 

i Convert job index number to job number 

i Print the job number 

; Space over 3 columns 



MOV 


#2. , R3 


MOV 


R5>R1 


ASR 


R5 


CALL 


PRTFIX 


MOV 


#3. , R3 


CALL 


PRTSPC 



Print the user's name 
CALL PRTUNM 



i 
I 
f 
I 
t 

t 

€ 



i Print the user's name 



i 

I 

I 

f 
4 
4 

I 



i 

i 

f 
i 
c 
i 
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Terminate this print line 

•PRINT #CRLF iEnd of line 

See if there are more allocated devices to display 



TSKSHO - 


— Keyboard SHO 


• 


ALLOCATIONS 


58 






59 






60 






61 


006776 




62 






63 






64 






65 


007004 


062702 


66 


007010 


020227 


67 


007014 


103733 


6S 






69 






70 






71 


007016 


012605 


72 


007020 


012603 


73 


007022 


012602 


74 


007024 


012601 


75 


007026 


000207 



OOOOOOG 
OOOOOOG 



4*: 



ADD 
CMP 
BLO 

Finished 



9*; 



MOV 
MOV 
MOV 
MOV 
RETURN 



#AD**SZ,R2 
R2, #ALCEND 
3* 



(SP)+, R5 
<SP)+, R3 
(SP)+, R2 

(SP)+, Rl 



iPoint to next allocation entry 
^Finished all entries? 
■Br if more to do 



€ 
I 

i 

I 



i 

i 
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c 
i 
c 
< 



2 
3 
4 
5 
6 
7 

e 

9 
10 

11 

12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

23 

24 
25 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



en-T-ri 

Show mounts 



MOUNT 



007030 
007032 
007034 
007036 
007040 



007042 
007046 
007052 
007054 
007060 
007064 
007066 
007072 
007074 
007076 
007102 
007106 
007U0 



007112 
007116 
007120 
007122 
007124 
007126 
007132 
007136 
007140 
007146 
007150 
007152 
007154 
007160 
007164 
007166 
007170 
007172 
007174 
007202 
007204 
007210 
007214 
007216 



010146 
010246 
010346 

010446 
010546 



016704 
012705 
010400 
004767 
005767 
001404 
020527 
103001 
010425 
062704 
020467 
103761 
005015 



012705 
012503 
001437 
010504 
010300 
004767 
016702 
000302 
016767 
012401 
00 1 762 
010100 
004767 
016700 
000300 
020002 
101366 
103404 
026767 
103361 
010364 
010165 
010103 
000742 



OOOOOOG 



SHOMNT: 



MOV 
MOV 
MOV 
MOV 
MOV 



Rl> -<SP) 
R2, -<SP) 
R3, -<SP) 
R4, -(SP) 
R5, -(SP) 



Set up a table of pointers to active mount entries in BLKO aTea. 



OOOOOOG 
OOOOOOG 

OOOOOOG 
00000 IC 

001774G 



OOOOOOG 
OOOOOOG 



20*: 



>1*. 



MOV 

MOV 

MOV 

CALL 

TST 

BEQ 

CMP 

BHIS 

MOV 

ADD 

CMP 

BLO 

CLR 



CSHDEV, R4 

#BLKO, R5 

R4, RO 

CDGET 

CDBUF+CD*DVU 

21* 

R5, #BLK0+1020. 

21* 

R4, (R5) + 

#CD**SZ>R4 

R4, CSHDVN 

20* 

<R5) 



Point to start of mount table 

Point to area where we will build table 

Get address of next mount entry 

Get mount entry into CDBUF 

Is this mount entry in use? 

Br if not 

Is table full? 

Br if yes 

Save pointer to active mount entry 

Point to next entry in mount table 

Have we checked all mount entries? 

Loop if not 

Put null pointer at end of table 



OOOOOOG 
00000 IC 

00000 IC 170650 



OOOOOOG 
00000 IC 



00000 IC 170614 

177776 
177776 



Now sort the list of mount table pointers using two keys: 

key 1 — Device # ?< unit #i key 2 — base block number of logical disks 

first entry in table 
24*: MOV (R5)+, R3 i Get Dointer to a mount entry 

nished sorting table 
iter to next entry in table 
J3*: MOV R3, RO i Get address of mount entry 

;ry into CDBUF 

,ce # and unit # of mounted device 
# in high-order, unit # in low-order 

base block number 
iter to another mount entry 
lecked all beyond reference entry 
•ess of mount entry 
;ry into CDBUF 

,ce # and unit # of this entry 
le dev # and unit # order 

smallest dev # and unit # 
is device is higher 
is device is smaller than ref one 
device, now check base block #'5 
it smaller 
J*: MOV R3, -2(R4) j Swao table entries 



!5*: 



MOV 


#BLKO, R5 




, Point to 


MOV 


(R5)+, R3 




i Get poin 


BEQ 


26* 




» Br if fi 


MOV 


R5, R4 




Get poin 


MOV 


R3, RO 




Get addr 


CALL 


CDGET 




Copy ent 


MOV 


CDBUF+CD*DVU, 


R2 


Get devi 


SWAB 


R2 




Put dev 


MOV 


CDBUF+CD*BAS, 


CDBASE i Save 


MOV 


(R4)+,R1 




Get poin 


BEQ 


24* 




Br if ch 


MOV 


Rl> RO 




Get addr 


CALL 


CDGET 




Copy ent 


MOV 


CDBUF+CD*DVU, 


RO 


Get devi 


SWAB 


RO 




Rearrang 


CMP 


RO, R2 




Look for 


BHI 


25* 




Br if th 


BLO 


22* 




Br if th 


CMP 


CDBUF+CD*BAS, 


CDB/ 


iiSEi Same 


BHIS 


25* 


J 


Br if no 


MOV 


R3, -2(R4) 


J 


Swap tab 


MOV 


Rl, -2(R5) 






MOV 


R1,R3 


J 


Set new 


BR 


23* 


} 


Continue 



007220 005767 OOOOOOG 



If there are any mounted devices, print table heading 
26*: TST BLKO ; Are there any mounted devices? 
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5S 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

HI 

112 

113 

114 



007226 
007234 



007242 
007246 
007250 
007252 
007256 
007260 
007264 
007270 



007272 
007276 
007302 



007312 
007316 
007320 
007326 
007332 
007334 
007336 
007340 
007344 
007346 
007354 
007360 
007362 
007366 
007374 
007376 
007402 
007404 
007410 
007412 
007416 
007420 
007422 
007424 
007432 
007434 
007436 
007444 
007450 
007454 
007456 
007460 
007462 






012702 
012201 
001002 
000167 
010100 
004767 

001576 



004767 
004767 



005767 
001005 

000167 
010146 
005046 
010146 
016703 
005005 
016767 
016704 
010400 
004767 
026767 
001023 
005767 
001420 
020367 
101415 
020367 
103012 
005705 
001404 
026767 
101404 
010405 
016767 
062704 
020467 
103741 
010501 
001404 
010500 



BEG 30* 
.PRINT #SHMTH1 
.PRINT #SHMTH2 



Br IT no u 

Print heading line 

Underline it 



Now print information about each device. 



OOOOOOG 



000414 
OOOOOOG 



30*: 
1*: 



27*: 



MOV 


#BLKO, R2 


MOV 


(R2)+,R1 


BNE 


27* 


JMP 


2* 


MOV 


R1,R0 


CALL 


CDGET 


MOV 


CDBUF+CD*DVU, RO 


BEQ 


8* 



; Get pointer to table of sorted pointers 

;Get next mount table pointer 

; Br if got another entry 

iFinished all devices 

; Get address of mount entry 

i Move entry into CDBUf 

;GET UNIT # / DEVICE # OF MOUNTED DEVICE 

; BR IF NULL — THIS ENTRY IS FREE 



Found a mounted device. 

Print device name and unit number 



OOOOOOG 
OOOOOOG 



CALL CVDVNM 
CALL PRTR50 
. TTYOUT # ' : 



CONVERT DEVICE S< UNIT #'S TO DEVICE NAME 
PRINT THE DEVICE NAME 
PRINT ": " 



If this is a logical disk, print the LD file name 



29*: 
12*: 



13*: 



00000 IC 



000234 



00000 IC 

00000 IC 170444 
OOOOOOG 

OOOOOOG 

170426 00000 IC 

00000 IC 

00000 IC 

000001 c 



00000 IC 170370 

15*; 
000001 C 170356 
OOOOOOG 14*: 

OOOOOOG 



rsT 

BNE 

. PRINT 

JMP 

MOV 

CLR 

MOV 

MOV 

CLR 

MOV 

MOV 

MOV 

CALL 

CMP 

BNE 

TST 

BEQ 

CMP 

BLOS 

CMP 

BHIS 

TST 

BEQ 

CMP 

BLOS 

MOV 

MOV 

ADD 

CMP 

BLO 

MOV 

BEQ 

MOV 



CDBUF+CD*«AH 

29* 

#SPACE6 

4* 

R 1 , - ( SP ) 

-(SP) 

R 1 < - ( SP ) 

CDBUF+CD*BAS. R3 

R5 



IS THIS A LOGICAL DISK? 

BR IF YES 

SPACE OVER 6 COLUMNS 



i SAVE ORIGINAL MOUNT TABLE INDEX 
i PUT NULL ON STACK TO SIGNAL END 
; SAVE POINTER TO INNER-MOST LOGICAL DISK 
i GET BASE BLOCK NUMBER OF THIS LD 
; SAY NO ENCLOSING LD FOUND YET 
CDBUF+CD*DVU, CDDVU i Save device and unit info 
CSHDEV. R4 i SEARCH THROUGH MOUNTED DEVICE TABLE 
R4* RO i Get address of mount entry 

CDGET i Move into CDBUF 

CDDVU, CDBUF+CD*DVUi LOOKING FOR ONE WITH SAME PHYS DEVICE 



14* 

CDBUF+CD*BAS 

14* 

R3, CDBUF+CD*BAS 

14* 

R3> CDBUF+CD*TOP 

14* 

R5 

15* 

CDBUF+CD*BAS, CDBASSi 



BR IF NOT THIS ONE 

IS THIS ALSO A LOGICAL DISK? 

BR IF NOT 

SEE IF THIS LD ENCLOSES INNER LD 

BR IF NOT 

CHECK UPPER RANGE 

BR IF NOT ENCLOSING 

ANY OTHER ENCLOSING LD'S FOUND SO FAR? 

BR IF NOT 

SAVE ONE WITH HIGHEST BASE 



14* 

R4,R5 ; THIS IS AN ENCLOSING LOGICAL DISK 

CDBUF+CD*BAS, CDBAS5 



#CD**SZ> R4 

R4, GSHDVN 

13* 

R5> Rl 

16* 

R5. RO 



POINT TO NEXT MOUNT TABLE ENTRY 

CHECKED .ALL? 

LOOP IF NOT 

DID WE FIND AN ENCLOSING LOGICAL DISK? 

BR IF NOT 

WE FOUND AN OUTER LD 



I 

c 

I 
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i 
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i 
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i 
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Command 




MOUNTS 






115 


007464 


004767 


OOOOOOG 


116 


007470 


000722 




117 


007472 


012605 




US 


007474 


012703 


0000000 


119 


007500 


010500 




120 


007502 


004767 


OOOOOOG 


121 


007506 


012700 


OOOOOOC 


122 


007512 


004767 


OOOOOOG 


123 


007516 


112723 


000072 


124 


007522 


012605 




125 


007524 


001365 




126 


007526 


005303 




127 


007530 


020527 


000006G 


128 


007534 


103003 




129 


007536 


1 1 2723 


000040 


130 


007542 


000772 




131 


007544 


112713 


000200 


132 


007550 






133 


007556 


012601 




134 


007560 


010100 




135 


007562 


004767 


OOOOOOG 


136 








137 








138 








139 


007566 


01270& 


000001 


140 


007572 


012703 


000001 


141 


007576 


012704 


OOOOOOC 


142 


007602 


130314 




143 


007604 


001415 




144 


007606 






145 


007616 


020527 


000012 


146 


007622 


103004 




147 


007624 






148 


007634 


004767 


OOOOOOG 


149 


007640 


106303 




150 


007642 


103002 




151 


007644 


005204 




152 


007646 


006103 




153 


007650 


005205 




154 


007652 


020527 


OOOOOOG 


155 


007656 


101751 




156 








157 








158 








159 


007660 






160 


007666 


000167 


177354 


161 








162 








163 








164 


007672 


005767 


OOOOOOG 


165 


007676 


001003 




166 


007/00 






167 








168 








169 








170 


007706 


012605 




171 


007710 


012604 
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CALL CDGET 

BR 12$ 

16*: MOV (SP)+>R5 

MOV #PRTBUF, R3 

17*: MOV R5. RO 

CALL CDGET 

MOV #CDBUF+CD*NAM, 

CALL PRTFNM 

MOVE #': , (R3) + 

MOV <SP)+, R5 

BNE 17* 

DEC R3 

IS*: CMP R3. #FRTBUF+6. 

BHI3 19* 

MOVB #40, (R3) + 

BR 18* 

19*; MOVB #200, (R3) 

.PRINT #PRTBUF 

MOV (SP)+, Rl 

MOV RliRO 

CALL CDGET 



GET OUTER LD DATA INTO CDBUF 
KEEP SCANNING OUTWARD 

GET POINTER TO OUTER-MOST LOGICAL DISK 
GET POINTER TO TEXT BUFFER FOR PRTFNM 
Get address of mount entry 
Get mount entry into CDBUF 
ROi GET POINTER TO FILE NAME 
FORMAT THE FILE NAME 
PUT COLON AFTER FILE NAME 
IS THERE ANOTHER NAME? 
BR IF YES 

POINT BACK TO LAST COLON 
TAB UP TO COLUMN 6 

;FILL WITH TRAILING SPACES 



PUT IN END OF STRING MARKER 

PRINT THE LOGICAL DISK SPECIFICATION 

GET BACK MOUNT TABLE INDEX 

Get address of mount entry 

Move entry into CDBUF 



Print numbers of jobs that have this device mounted 



4*: 



7*: 



10*: 
5*: 



6*: 



MOV 

MOV 

MOV 

BITB 

BEQ 

. TTYOUT 

CMP 

BHIS 

. TTYOUT 

CALL 

ASLB 

BCC 

INC 

ROL 

INC 

CMP 

BLOS 



#1, R5 

#1, R3 

#CDBUF+CD*JOB, 

R3, (R4) 

5* 

#40 

R5, #10. 

10* 

#40 

PRTDEC 

R3 

6* 

R4 

R3 

R5 

R5, #NLINES 

7* 



R4 



START WITH JOB # 1 

GET MOUNT FLAG FOR JOB # 1 

POINT TO TABLE WITH JOB BIT FLAGS 

IS DEVICE MOUNTED BY THIS JOB? 

BR IF NOT 

PRINT A SPACE 

IS THIS A 2 DIGIT JOB NUMBER? 

BR IF YES 

PRINT EXTRA SPACE FOR COLUMN ALIGNMENT 

PRINT JOB NUMBER 

SHIFT OVER MOUNT FLAG 

BR IF DID NOT SHIFT OUT OF BYTE 

POINT TO NEXT BYTE 

RESET FLAG BIT 

ADVANCE JOB NUMBER 

CHECKED ALL JOBS? 

LOOP IF MORE TO CHECK 



i 

f 
I 

f 
I 
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i 



Finished with this mount entry 



8*: 



?*: 



.PRINT #CRLF 
JMP 1* 



jEND LINE 

; Go back and print info for next device 



Finished checking all entries in mount table 



TST BLKO 
BNE 3* 
.PRINT #NONEMS 



WERE THERE ANY MOUNTED DEVICES? 
BR IF YES 
PRINT "(NONE)" 



3*: 



Finished 

MOV 
MOV 



<SP>+,R5 
<SP>+, R4 



I 

I 
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1 -7'-) r\n-7"7lo 

X t Km V-S^ f /AC 

173 007714 

174 007716 

175 007720 



A1 ^AAT 

012602 
012601 
000207 



MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


(SP>+, Rl 


RETURN 





i 



c 
I 
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i 

i 
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I 

i 



{ 



TSKSHO - 


— (keyboard SHOW 


Command 




MODEM 






1 
2 








3 








4 








5 


007722 






6 


007730 


012700 


000060 


7 


007734 


105767 


OOOOOOG 


8 


007740 


001401 




9 


007742 


005200 




10 


007744 






11 


007750 






12 


007756 






13 


007764 


016705 


OOOOOOG 


14 


007770 


004767 


ooooooe 


15 


007774 






16 


010002 


016705 


OOOOOOG 


17 


010006 


004767 


OOOOOOG 


18 


010012 






19 


010020 


016705 


OOOOOOG 


20 


010024 


004767 


OOOOOOG 


21 


010030 






22 


010036 


016705 


OOOOOOG 


23 


010042 


004767 


OOOOOOG 


24 


010046 






25 


010054 


01670S> 


OOOOOOG 


26 


010060 


004767 


OOOOOOG 


27 


010064 






28 


010072 


000207 
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. oU I ! i_ . iiuDbn 
Display modem control parameters 



SHOMDM: .PRINT #PHNTXT 

MOV #'0, RO 

TSTB VUSPHN 

BEG 1* 

If-: . TTYOUT RO 

.PRINT #MDMTXT 

.PRINT #ONTTXT 



Start with PHONE 
Assume phone ~ 
Is phone set? 
Br if not 
PH0NE=1 

Print modem header 
ONTIM 



MOV 


VONTM, R5 




CALL 


PRTDEC 




. PRINT 


#OFTTXT 


jOFFTIM 


MOV 


VOFFTM, R5 




CALL 


PRTDEC 




. PRINT 


#TMITXT 


i TIMIN 


MOV 


VTMIN, R5 




CALL 


PRTDEC 




. PRINT 


#TMLTXT 


; TIMLOC 


MOV 


VTMLOC, Rb 




CALL 


PRTDEC 




. PRINT 


#TMOTXT 


i TIMOUT 


MOV 


VTMOUT> R5 




CALL 


PRTDEC 




. PRINT 


#CRLF 




RETURN 
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Command 


DATE 






I 
2 
3 






4 






5 010074 






6 010102 


005700 




7 010104 


001406 




8 010106 


004767 


OOOOOOG 


9 010112 






10 010120 


000403 




11 






12 010122 






13 010130 


000207 




14 






15 






16 






17 






18 






19 010132 


004767 


0000000 


20 010136 






21 010144 


000207 




22 






23 






24 






25 






26 






27 010146 






28 010154 


012703 


0000000 


29 010160 


005002 




30 010162 


071227 


000144 


31 010166 


010205 




32 010170 


004767 


OOOOOOG 


33 010174 






34 010204 


010305 




35 010206 


004767 


OOOOOOG 


36 010212 






37 010220 


000207 




38 






39 






40 






41 






42 






43 010222 


004767 


OOOOOOG 


44 010226 


000207 
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. SBTTL 



Display current date. 

SHODAT: . DATE 

TST RO 

BEQ 1* 

CALL PRTDAT 

. PRINT #CRLF 

BR 9* 

; Date is unknown. 

1*: .PRINT #NODAT 

9f: RETURN 

. SBTTL 



GET CURRENT DATE 
IS SYSTEM DATE KNOWN? 
BR IF NO DATE ENTERED 
DISPLAY DATE 



; NO DATE 



TIME 



; Display current time of day. 

i 

SHOTIM: CALL PRTTOD 
.PRINT #CRLF 
RETURN 



; DISPLAY CURRENT TIME 



SBTTL 



VERSION 



Display the ItiX-Plus system version number. 



"TSX-PIus Version^" 

Get system version number 

Clear high-order for divide 

Divide R2-R3 by 100 

Get major version number 

Print major version number 

Print decimal point 

Get fractional version number 

Print fractional version number 

Terminate print line 



. SBTTL USE 

Display computer usage information for current job. 

SHOUSE: CALL PRTTIM i PRINT CONNECT AND CPU TIME FOR JOB 

RETURN 



SHOVER; .PRINT 


#TSXVER 


MOV 


#TSXVRS. R3 


CLR 


R2 


DIV 


#100. , R2 


MOV 


R2, R5 


CALL 


PRTDEC 


. TTYOUT 


#'. 


MOV 


R3, R5 


CALL 


PRTDC2 


. PRINT 


#CRLF 


RETURN 
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INSTALL 



3 








4 








5 


010230 


010546 




6 
7 
S 


010232 


004767 


ooooooe 








9 








10 


010236 






11 
12 


010244 






13 
14 








15 


010252 


016705 


OOOOOOG 


16 


010256 


010567 


OOOOOOG 


17 


010262 


012700 


OOOOOOG 


18 


010266 


104375 




19 


010270 


005767 


00000 IC 


20 


010274 


001402 




21 


010276 


004767 


000016 


22 


010302 


062705 


OOOOOOG 


23 


010306 


020567 


OOOOOOG 


24 

25 
26 


010312 


103761 










27 








28 


010314 


012605 




29 


010316 


000207 
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, ab ! !i_ iNbThi-i- 

Shouj information about installed programs 



SHOINS: MOV 
CALL 



R5,-<SP) 
CKSYPV 



; Require SYSPRV privilege to do this 



Print title lines 

. PRINT #TM*IN1 
.PRINT #TM*IN2 

Begin loop to print inforniation about each installed pTograin 

Point to 1st install table entry 
1*. MOV R5, INGADR ; Set address of entry to get 

Get EMT arg block 

Get the entry to IIBUF 

Is this entry in use? 

Br if not 

Print info about this program 
2*: ADD #II**SZ,R5 iPoint to next install table entry 

Done all entries? 

Loop if not 



MOV 


INSTBL. R5 


MOV 


R5, INGADR 


MOV 


#INGEMT, RO 


EMT 


375 


TST 


II3UF+II«NAM 


BEQ 


2* 


CALL 


INSPRT 


ADD 


#II**SZ,R5 


CMP 


R5. INSTBN 


BLO 


1$ 


Finished 




MOV 


<SP)+,R5 


RETURN 
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Command 


1 


INSTALL 






i 

2 
3 








4 








5 








6 








7 


010320 


010146 




e 


010322 


010246 




9 


010324 


010346 




10 


010326 


010446 




11 








12 








13 








14 


010330 


012704 


OOOOOOC 


15 


010334 


012703 


OOOOOOG 


16 


010340 


004767 


OOOOOOG 


17 


010344 


112723 


000040 


18 


010350 


020327 


00002 IG 


19 


010354 


103773 




20 


010356 


112713 


000200 


21 


010362 






22 








23 








24 








25 


010370 


012/04 


177756 


26 


010374 


012703 


010620' 


27 


010400 


032367 


00000 IC 


28 


010404 


001422 




29 


010406 


005704 




30 


010410 


002406 




31 


010412 






32 


010422 


005204 




33 


010424 


000402 




34 


010426 


012704 


000022 


35 


010432 


011301 




36 


010434 






37 


010440 


122127 


000200 


38 


010444 


001402 




39 


010446 


005204 




40 


010450 


000773 




41 


010452 


005723 




42 


010454 


005713 




43 


010456 


001350 




44 








45 








46 








47 


010460 


012702 


OOOOOOC 


48 


010464 


012703 


OOOOOOC 


49 


010470 


012700 


OOOOOOG 


50 


010474 


005722 




51 


010476 


001004 




52 


010500 


005723 




53 


010502 


001002 




54 


010504 


077005 




55 


010506 


000434 




56 








57 
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Print information about the program whose install entry is in IIBUF. 

Inputs: 
IIBUF contains install entry for program. 



INSPRT: 



MOV 
MOV 
MOV 
MOV 



R1,-(SP) 
R2. -<SP) 
R3, -<SP) 
R4, -<SP) 



Print the file spec for the program. 



1$: 



#IIBUF+II*NAM, R4; Point to file spec to be converted 

(Point to result area 
J Convert file spec to asciz form 
; Store space following file spec 
jFilled out to flag area? 
J Loop if not 

j Store null at end of name 
i Print the name 



MOV 


#IIBUF+II*N/ 


MOV 


#BLKO, R3 


CALL 


EDTFIL 


MOVE 


#' , (R3)+ 


CMP 


R3, #BLK0+17. 


BLO 


1* 


MOVE 


#200, (R3) 


. PRINT 


#BLK0 



Print names of attribute flaqs 



2*: 



8*: 
3*: 

10*: 



4«: 



; No attributes printed yet 
.: Point to attribute name table 
(R3)+, II*FLG+IIBUF ils this attribute set? 

i Br if not 

; Is this the first attribute for program? 
i Br if yes 
j Print slash 
i Count column used by slash 



Initialize column number 
Get address of name string 
Print attribute name 
End of keyujord? 
Br if yes 
Count columns 

iSkip name pointer 

i Any more attributes to check? 

i Loop if yes 



MOV 


#-18. , R4 


MOV 


#IN3ANT>R3 


BIT 


(R3)+, II*F 


BEQ 


4* 


TST 


R4 


BLT 


8* 


. TTYOUT 


#'/ 


INC 


R4 


BR 


3* 


MOV 


#18. ,R4 


MOV 


(R3),R1 


. PRINT 


Rl 


CMPB 


<R1)+, #200 


BEQ 


4* 


INC 


R4 


BR 


10* 


TST 


(R3) + 


TST 


<R3) 


BNE 


2* 



See if progreim ha& any associated privileges* 



MOV #II*PRV+IIBUF>R2 

MOV #II*NPV+IIBUF, R3 

MOV #PVNPW, RO 

12*: TST (R2)H- 

BNE 13* 

TST (R3)+ 

BNE 1.3* 

SOB RO, 12* 

BR 11* 



Point to privilege flag info 

Point to negative privilege flags 

Get # privilege words 

Any privilege flags set? 

Br if yes 

Any negative privilege flags set? 

Br if yes 

Check all privilege words 

No privileges specified for program 



Print information about special privileges associated with program 



f 
t 
f 
f 
( 
I 

i 

< 

f 

c 

( 

^ 

« 

i 

I 

( 

i 

i 

4 
I 

c 



f 
I 

f 

€ 
t 
I 

I 

i 
i 
i 

i 



TSKSHO ■ 


— Keyboard SHOW 


Command 




INSTALL 






58 
59 


010510 






60 


010516 


005704 




61 


010520 


002401 




62 


010522 


005404 




63 


010524 


162704 


000007 


64 


010530 


012702 


OOOOOOG 


65 


010534 


012703 


000001 


66 


010540 


012700 


000022 


67 


010544 


004767 


OOOOOOG 


68 


010550 


012702 


OOOOOOC 


69 


010554 


012703 


177777 


70 


010560 


012700 


000022 


71 


010564 


004767 


OOOOOOG 


72 


010570 






73 








74 








75 








76 


010600 






77 








78 








79 








eo 


010606 


013604 




81 


010610 


012603 




8k' 


010612 


0iy.h02 




03 


010614 


012601 




84 


010616 


000207 




85 








86 








87 








88 


010620 


OOOOOOG 


010722' 


89 


010624 


OOOOOOG 


010735' 


90 


010630 


OOOOOOG 


010744' 


91 


010634 


OOOOOOG 


010751 ' 


92 


010640 


OOOOOOG 


010770' 


93 


010644 


OOOOOOG 


010777' 


94 


010650 


OOOOOOG 


011007' 


95 


010654 


OOOOOOG 


011014' 


96 


010660 


OOOOOOG 


011022' 


97 


010664 


OOOOOOG 


011031 ' 


98 


010670 


OOOOOOG 


011045' 


99 


010674 


OOOOOOG 


011051 ' 


100 


010700 


OOOOOOG 


011055' 


101 


010704 


OOOOOOG 


011064' 


102 


010710 


OOOOOOG 


011072' 


103 


010714 


OOOOOOG 


011077' 


104 


010720 


000000 




105 








106 


010722 


123 


111 




010725 


107 


114 




010730 


103 


110 




010733 


122 


200 


107 


010735 


116 


117 




010740 


101 


111 




010743 


200 




108 


010744 


110 


111 




010747 


110 


200 
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13*: 


. PRINT 


#TM*PVL 




TST 


R4 




BLT 


14* 




NEG 


R4 


14*; 


SUB 


#7. , R4 


15*: 


MOV 


#II*PRV+IIBUF, R2 




MOV 


#+l,R3 




MOV 


#18. ,R0 




CALL 


PRVLST 




MOV 


#II*NPV+IIBUF. R2 




MOV 


#-l-R3 




MOV 


#13. ,R0 




CALL 


PRVLST 




. TTYOUT 


#') 



Terminate the print line 

11*: .PRINT #CRLF 



Print "/PRIV=<" 

Any attributes printed? 

Br if not 

Make R4 negative to suppress leading comma 

Increase column count 

Point to words with privilege flags 

Select positive flags this time 

Wrap-around to column IS 

Print selected privileges 

Point to words with deselected priv flags 

Select negative flags 

Set wrap-around column 

Print deselected privileges 

Terminate privilege list 



i End line 



Finished 



MOV 
MOV 
MOV 
MOV 
RETURN 



(SP>+. R4 
(SP)+, R3 
<SP)+, R2 
<SP)+, Rl 



Table of install program attributes and names 



INSANT: . WORD 


AF*SCA, 1* 


. WORD 


AF*NOW. 2* 


. WORD 


AF*HIE. 3* 


. WORD 


AF*N0I,4* 


. WORD 


AF*IDP, 5* 


. WORD 


AF*MEM, 6* 


. WORD 


AF*PLK, 7* 


. WORD 


AF*DB0, 8* 


. WORD 


AF*BYA, 9* 


. WORD 


AF*TPO, 10* 


. WORD 


AF*DUP, 11* 


. WORD 


AF*IND, 12* 


. WORD 


AF*UCL, 13* 


. WORD 


AF*SET, 14* 


. WORD 


AF*CCA, 15* 


. WORD 


AF*NPW, 16* 


. WORD 






t 

i 



116 
105 
101 

127 



1*: 



?*: 



107 3*: 



ASCII /SINGLECHAR/<200> 



ASC 1 1 /NOWA I T/<200: 



ASCII /HIGH/<200> 



TSKSHO 



-- Keyboard 
INSTALL 



I 
I 
( 

f 



i w*7 \j 1\J / sJ 1 

010754 
010757 
010762 
010765 

110 010770 
010773 
010776 

111 010777 
011002 
011005 

112 011007 

113 
114 



115 

116 
117 
118 

119 
120 
121 



011014 
011017 
011022 
011025 
011030 
011031 
011034 
011037 
011042 
011045 
011050 
01 10!i?l 
011054 
011055 
011060 
011063 
011064 
011067 
011072 
011075 
011077 
011102 
011105 



SHOW 



111 
105 
103 
126 
111 
101 
200 
115 
114 
113 
114 

104 
125 
102 
101 
200 
124 
116 
101 
116 
104 
200 
1 11 
200 
124 
125 
200 
123 
125 
123 
101 
116 
111 
117 



D(T)(nan d 


MACRO V05. 


117 


116 


4*: 


116 


124 




122 


101 




124 


111 




105 


200 




117 


120 


5*. 


107 


105 




105 


115 


6*: 


117 


103 




200 






117 


103 


7*: 


200 






105 


102 


8*: 


107 


200 




131 


120 


9*: 


123 


116 




122 


101 


10* 


123 


120 




122 


105 




124 


200 




125 


120 


11* 


116 


104 


12* 


123 


130 


13* 


103 


114 




105 


124 


14* 


120 


200 




103 


103 


15* 


200 






117 


127 


16* 


116 


104 




127 


200 
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ASCII /I0PAGE/<200> 

ASCII /MEML0CK/<200.> 

ASCII /L0CK/<200> 

ASC 1 1 /DEBUQ/<200> 

ASC I I /B YP ASN/<200> 

ASCII /TRANSPARENT/ C200> 

ASCII /DUP/<200> 

ASCII /IND/<200.> 

ASC I I /TSXUCL/<200> 

ASCII /SETUP/<:200> 

ASCII /SCCA/<200> 

ASCII /N0WIND0W/<200> 

EVEN 



i 
I 
I 

€ 
f 
I 

C 
I 

c 

€ 
I 



i 

I 

I 
i 

i 



i 
i 
i 
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C 
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i 
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1 

2 








3 








4 








5 


011110 


010246 




6 


01U12 


010446 




7 

8 


011114 


005002 




9 

10 








11 


011116 


012704 


OOOOOOG 


12 


011122 


004767 


000106 


13 


011126 


062704 


OOOOOOG 


14 


011132 


020427 


OOOOOOG 


15 


011136 


103771 




16 








17 








IS 








19 


011140 


016704 


OOOOOOG 


20 


011144 


020467 


OOOOOOG 


21 


011150 


103021 




22 


011152 


010467 


OOOOOOG 


23 


011156 


012767 


OOOOOOG OOOOOOG 


24 


011164 


012700 


OOOOOOG 




011170 






26 


011172 


012704 


OOOOOOG 


27 


011176 


004767 


000032 


28 


011202 


016704 


OOOOOOG 


29 


011206 


062704 


OOOOOOG 


30 


011212 


000754 




31 








32 








33 








34 


011214 


005702 




35 


011216 


001003 




36 


011220 






37 








38 








39 








40 


011226 


012604 




41 


011230 


012602 




42 


011232 


000207 








Shouj named regions 



SHOREG: MOV 
MOV 
CLR 



R2, -<SP) 
R4, -(SP> 
R2 



If: 



J Clear count of # regions shown 
First shoiu information about all private regions 

j Point to first private Region Control Blk 
;Display info about this region 
; Point to next RCB 
iChecked all RCB'sT' 
r Br if not 

Now show information about all shared regions 



MOV 


#RCBBAS, R4 


CALL 


RGNDSP 


ADD 


#RC$*SZ> R4 


CMP 


R4. #RCBEND 


BLO 


1* 



I 

€ 
I 

i 

I 



2*: 



MOV 


SHRRCB. R4 


CMP 


R4, SHRRCN 


BHIS 


3* 


MOV 


R4, PEKADR 


MOV 


#RC**SZ, PEKSIZ 


MOV 


#PEKEMT.RO 


EMT 


37t? 


MOV 


#BLKO, R4 


CALL 


RGNDSP 


MOV 


PEKADR, R4 


ADD 


#RC**SZ, R4 


BR 


2« 



Paint to 1st shared RCB 

Checked all shared RGB's? 

Br if yes 

Set address of RCB 

Get # bytes to fetch 

Point to EMT arg block 

Move HCB to BLKO buffer 

Point to RCB in our buffer 

Display info about the region 

Recover real RCB address 

Point to next RCB 



If there were no named regions, print a message. 



3*: TST R2 

BNE 9* 

. PRINT #TM*NNR 

Finished 

9*: MOV <SP)+, R4 

MOV <SP)+, R2 
RETURN 



i Were there any named regions? 

; Br if yes 

; No named regions 



i 

i 

f 

c 

I 

t 

i 

< 



t 
c 
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— Keyboard 
REGIONS 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 

11 011234 
12 
13 
14 
x %j 1 



16 01 

17 01 

18 01 

19 01 

20 01 

21 01 



J. ChJ*T 

1242 
1244 
1252 
1254 

1262 
1264 



23 
24 

2,> Ullcs'OO 

26 011270 

27 011272 
20 

29 
30 
31 01 



32 01 

33 01 

34 01 

35 01 
36 

37 
38 

39 01 

40 01 

41 01 

42 01 
43 

44 
45 

46 01 

47 01 

48 01 

49 01 

50 01 

51 01 

52 01 

53 01 

54 01 
55 

56 
57 



1274 
1276 
1300 
1306 
1314 



1316 
1322 
1326 
1332 



1336 
1342 
1344 
1350 
1352 
1356 
1362 
1366 
1376 



032764 
001410 

032764 
001004 

032764 
001001 
000207 



i 01 46 
010346 
010546 



005702 
001006 



00520i 



016400 
004767 
016400 
004767 



016401 
005000 
071027 
01C005 
012703 
004767 
116105 



Display a line of information about a named region. 

Inputs: 
R4 = Pointer to Region Control Block. 
R2 = Count of number of active regions so far. 

Outputs: 
R2 = Incremented if this is an active region. 



RGNDSP: 



OOOOOOG 
0000000 
OOOOOOG 



OOOOOOG 
OOOOOOG 
000002G 
OOOOOOG 



OOOOOOG 

000020 

000006 

OOOOOOG 

011630' 



004767 OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 



1$: 



2$: 



f this 


RCB is for an attiv 


BIT 


#RC«USE, RC*FLG<R4) 


BEQ 


1* 


BIT 


#RC$LCG. RC*FLG<R4) 


BNE 


1* 


BIT 


#RC$GBL. RC«FLG(R4.) 


BNE 


2* 


RETURN 





Is this an active RCB? 

Br if not 

Is this a local copy of a global RCB' 

Br if yes — We will list global RCB 

Is this a named region? 

Br if yes 



This is an RCB for an active named region 



MOV 
MOV 
MOV 



HI, -<t>H > 
R3.. -<SP) 
R5, -<SP) 



See if this is the 1st r 



eg ion 



TST 
BNE 



R2 
3* 



.PRINT #TM*RD1 
.PRINT #TM*RD2 



3*: 



INC 



R2 



Display name of the region 

MOV RC*NAM(R4),R0 

CALL PRTR50 

MOV RC*NAM+2<R4), RO 

CALL PRTR50 

Display size of region 



MOV 


RC*LEN(R4),R1 


CLR 


RO 


DIV 


#16. , RO 


MOV 


RO, R5 


MOV 


#6. , R3 


CALL 


PRTFIX 


MOVB 


FRAC64(R1), R5 


. TTYOUT 


#', 


CALL 


PRTDEC 



j Is this the first region? 

; Br if not 

iDisplay title line 1 

iDisplay title line 2 

; Count another region displayed 



Get Ist 3 chars of name 
Print them 

Get 2nd 3 chars of name 
Print them 



Get # 64-fayte blocks allocated for region 

Clear high-order for divide 

Conver to # Kb 

Get # uihole K 

Print in 6 digit field 

Print # whole Kb 

Convert to decimal Kb fraction 

Print decimal point 

Print decimal digit 



Display type of region 



i 
I 
I 

I 

i 
tf 
I 

I 
i 
i 

i 
c 
I 
( 



c 
I 
I 



TSKSHO - 


— Keyboard SHOW 


Command MACRO V 


• 


REGIONS 






58 


011402 






59 


011410 


032764 


0000000 OOOOOOG 


60 


011416 


001407 




61 


0U420 






62 


011426 






63 


011434 


000403 




64 


011436 






65 








66 








67 








68 


011444 


116405 


OOOOOOG 


69 


011450 


006205 




70 


011452 


012703 


000005 


71 


011456 


004767 


OOOOOOG 


72 








73 








74 








75 


011462 


116405 


OOOOOOG 


76 


011466 


012703 


000005 


77 


011472 


004767 


OOOOOOG 


78 








79 








80 








81 


011476 


012703 


000004 


82 


01 IS>02 


00'<+/<!3/ 


OOOOOOW 


S3 


0U506 


032764 


OOOOOOG OOOOOOG 


84 


011514 


001404 




85 


011516 






86 


011524 


000403 




87 


011526 






88 








89 








90 








91 


011534 






92 


011542 


032764 


OOOOOOC OOOOOOG 


93 


011550 


001004 




94 


011552 






95 


011560 


000403 




96 


011562 






97 








98 








99 








100 


011570 






101 


011576 


010246 




102 


011600 


016402 


OOOOOOG 


103 


011604 


004767 


OOOOOOG 


104 


011610 


012602 




105 








106 








107 








108 


011612 






109 








110 








111 








112 


011620 


012605 




113 


011622 


012603 




114 


011624 


012601 





4*: 
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.PRIMT #SPACE2 i Print 2 spaces 

BIT #RC*PVT. RC*FLG(R4) ;l3 this a private or shared region' 

BEQ 4* i Br if shared 

.PRINT #TM*LCL ; Say region is local to job 

.PRINT #SPACE1 J Print extra space 

BR 5* 

.PRINT #TM*GBL J Say region is global 



Print number of job that created region 



5$: 



MOVE 


RC*aWN(R4)>R5 


ASR 


R5 


MOV 


#5. ,R3 


CALL. 


PRTFIX 



Get # of job that created region 
Convert to # 
Print 5 dig: 
Print job # 



Get attachment count 
Print in 5 digit field 
Print use count 



Print attachment (use) count 

MOVE RC*CNT(R4),R5 
liOV #5. , R3 
CALL PRTFIX 

Show if shared 



MOV #4. , R3 

CALL PRTSPC 

BIT #RC$EXC. RC*FLG<R4) ils this region sharabie? 

BEQ 6* j Br if yes 



i Pr int 4 spaces 



6«: 



7*: 



. PRINT #NOTXT 
BR 7* 
.PRINT #YESTXT 

Show if AGE is set 



; Print 'No' 
iPrint 'Yes' 



8*: 



.PRINT #SPACE3 ; Print 3 spaces 

BIT #RC$AGEiRC*AEP, RC«FLG(R4) ;Is AGE enabled? 

BNE 8$ ; Br if yes 

.PRINT #NOTXT i Print 'No' 

BR 9* 

.PRINT #YESTXT J Print 'Yes' 



Show region base 64-bitte block # 



9«: 



.PRINT #SPACE2 

MOV R2, -(SP) 

MOV RC*BAS(R4), R< 

CALL OCTPRT 

MOV (SP)+, R2 

Terminate print line 

.PRINT #CRLF 

Finished 



i Print 2 spaces 

>Get base bj.ocK -n- 
i Disp lay it 



MOV 
MOV 
MOV 



<SP)+, R5 
<SP)+, R3 
(SP)+. Rl 



« 

I 



€ 



f 



c 
I 
c 
I 
c 

i 

( 

4 

I 
I 
i 
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i 
i 
i 
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tDCXI ipM 



011647 Oil 
120 . EVEN 



f 



1 1 A 

117 i Values to convert # fractional 64-byte blocks to tenths of Kb 

lie ; 

119 011630 000 001 001 FRAC64: .BYTE 0. , 1 . , 1 , 2. , 2 , 3. , 4. , 4. , 5. , 6. , 6. , 7. , 7. , 8. , 9. , 9. « 

011633 002 002 003 

011636 004 004 005 

011641 006 006 007 

011644 007 010 Oil 



f 

f 

< 

i 
f 

( 
C 
4 

I 



f 
( 
I 



f 
< 
f 

f 
I 
< 

I 
I 
I 

I 
I 
I 

I 

( 
c 
I 
{ 
i 



TSKSHO — Keyboard SHOW Command 
PRIVILEGES 



1 

2 








3 








4 








5 


011650 


010246 




6 


011652 


010346 




7 


011654 


010446 




8 








9 








10 








11 


011656 






12 


011664 


012702 


0000000 


13 


011670 


012703 


000001 


14 


011674 


012704 


177750 


15 


011700 


012700 


000030 


16 


011704 


004767 


0000000 


17 


011710 






IS 


011716 






19 








20 








21 








22 


011724 






23 


011732 


01.3702 


OOOOOOG 


24 


01 1736 


012704 


177750 


2t> 


Oil /4S 


012 700 


000030 


26 


011746 


004767 


OOOOOOG 


27 


011752 






28 








29 








30 








31 


011760 


012604 




32 


011762 


012603 




33 


011764 


012602 




34 


011766 


000207 
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Show privileges 



SHOPRV: MOV 
MOV 
MOV 



R2, -(SP) 
R3. -(SP) 
R4, -(SP) 



L. iSir aLfciiorized priviiSyPs 



. PRINT 


#TM*PVA 


MOV 


ttPRIVAO, R2 


MOV 


#+1, R3 


MOV 


#-24. , R4 


MOV 


#24. , RO 


CALL 


PRVLST 


. PRINT 


#CRLF 


. PRINT 


#CRLF 



List current privileges 



. PRINT 


#TM*PVC 


MOV 


#PRIVCO. R2 


MOV 


#~24. , R4 


MOV 


#24. .. RO 


CALL 


PRVLST 


. PRINT 


#CRLF 


Finished 




MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





Authorized privileges 
Point to priv flag vector 
Shoui positive privileges only 
Start at column 24 
Wrap around to col 24 
/List privi leges 
Terminate last line 
Put in a blank line 



i Current privileges 

; Cuf-rpnt pT*jvilege flags 

/Start at column 24 

; Wrap around to col 24 

/List privileges 



I 
I 
f 
I 

I 

I 

r 
I 
c 
I 

I 

i 
f 

€ 

I 

( 
( 



4 

t 



c 

I 

i 
i 

i 



TSKSHO - 


— Keyboard SHOW 


Command MACRO V 


1 


SL 






2 








3 








4 








5 


011770 


010246 




6 


011772 


010346 




7 


011774 


010446 




8 








9 








10 








11 


011776 






12 








13 








14 








15 


012004 


032761 


0000000 OOOOOOG 


16 


012012 


001003 




17 


012014 


012702 


OOOOOOG 


18 


012020 


000402 




19 


012022 


012702 


OOOOOOG 


20 


012026 






21 








22 








23 








24 


012032 


012704 


OOOOOOG 


2S 


O 1 2036 


UJ,i>?03 


OOOOOOG 


26 


012042 


004767 


000046 


27 








28 








29 








30 


012046 


012704 


OOOOOOG 


31 


012052 


012703 


OOOOOOG 


32 


012056 


004767 


000032 


33 








34 








35 








36 


012062 


012704 


OOOOOOG 


37 


012066 


012703 


OOOOOOG 


38 


012072 


004767 


000016 


39 








40 








41 








42 


012076 






43 








44 








45 








46 


012104 


012604 




47 


012106 


012603 




48 


012U0 


012602 




49 


012112 


000207 





. SBTTL SL 

Display single line editor status. 



SHOSLE: MOV 
MOV 
MOV 



R2, -(SP) 
R3/-(SP) 
R4, -<SP) 



Print message heading 
.PRINT #TM*SL1 

I I J. 1 1 w win u 1 Uii 1 



i "SL status: 



BIT 


#*SLON, LSW 


BNE 


1« 


MOV 


#TM$OFF, R2 


BR 


2* 


1*: MOV 


#TM*ON, R2 


2*: .PRINT 


R2 


i 

> Check •for KED mode 


MOV 


#*SLKED. R4 


MOV 


#TM*KED, Hli 


CALL 


SLCKFL 



Check for TTY mode 



MOV 


#*SLTTY, R4 


MOV 


#TM$TTY, R3 


CALL 


SLCKFL 



Check for SUBSTITUTE mode 

MOV #*SLLET, R4 
MOV #TM*SUB, R3 
CALL SLCKFL 

Terminate the print line 

. PRINT #CRLF 

Finished 



MOV 


(SP)+, R4 


MOV 


(SP)+, R3 


MOV 


(SP)+, R2 


RETURN 





i Br if yes 

; Point to OFF message 

i Point to ON message 

; Print text 



Get Ked flag 



.: Get flag 

; Point to text strina 



; Get flag 

jPoint to text string 



Terminate print line 



I 
I 
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SL 



r 



3 
4 
5 
6 
7 

S 



11 
12 
i J 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 



012130 
012132 



012140 



030461 
001003 



OOOOOOG 



29 012144 000207 



Check of a SL option flBg is s»et in L3W7/ and if it is pT-int that the 
option is onj otherujise.' print that the option is off. 

Inputs: 
Rl = Job index number 

R3 = Pointer to text string for option name 
R4 = Flag bit to be tested in LSW7 

SLCKFL: 

Print a leading comma 

. TTYOUT #54 

If option flag is not set/ print "NO" 



BIT R4, LSW7(R1) 

BNE 1$ 

.PRINT #Tri*NO 

Print the name of the option 

1$; . PRINT R3 

Finished 

RETURN 



J Is the option flag set? 
i Br if yes 
; Print NO 



Print the option name 



I 

I 

r 
f 
t 



€ 
€ 

i 
I 
f 

I 

e 
t 
i 
I 
i 
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( 

i 



2 
3 
4 








5 


012146 


010146 




6 


012150 


012701 


OOOOOOG 


7 


012154 


005005 




8 


012156 


020127 


OOOOOOG 


9 


012162 


103023 




10 


012164 


026127 


OOOOOOG OOOOOOG 


11 


012172 


001414 




12 


012174 


016100 


OOOOOOG 


13 


012200 


005205 




14 


012502 


004767 


OOOOOOG 


15 


012206 


016100 


000002G 


16 


012212 


004767 


OOOOOOG 


17 


012216 






IS 


012224 


062701 


OOOOOOG 


19 


012230 


000752 




20 


012232 


005705 




21 


012234 


001003 






012236 






23 


012244 


012601 




24 


012246 


000207 





SBTTL 



RUN=TIMES 



; Shoui run-times 
SHOSRT: 



1*: 



4*: 



3*: 



MOV R 1 , - ( SP ) 

MOV #RDB,R1 

CLR R5 

CMP R1,#RDBEND 

BHIS 2* 

CMP RT*DEV<R1) 

BEQ 4* 

MOV RT*.MAM(R1). RO 

INC R5 

CALL PRTR50 

MOV RT*NAM+2 ( R 1 ) , RO 

CALL PRTR50 

. PRINT #CRLF 

ADD #RT**SZ,R1 

BR 1* 

TST R5 

BNE 3* 

.PRINT #i\;ONEriS 

MOV <SP>+, Rl 

RETURN 



i POINT TO FIRST RUN-TIME DESCRIPTOR BLOCK 
i Count run-times in R5 
i ANY RUN-TIMES? 
; BR IF FINISHED 
#DMYDEV J Is this dummy entry for patching? 
j Br if yes 

GET 1ST 3 CHARS OF RUN-TIME NAME 

Count another run-time 

PRINT THEM 

GET 2ND 3 CHARS OF NAME 

PRINT THEM 

END LINE 

POINT TO NEXT DESCRIPTOR BLOCK 



WERE THERE 
BR IF YES 
PRINT NONE 



ANY RUN-TIMES? 



I 
« 

c 

I 
I 

f 
i 
i 

I 

( 

C 

t 

< 

< 

1 
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1 

2 








3 








4 








5 








6 


012250 


010246 




7 








S 








9 








10 


012252 


105767 


0000000 


11 


012256 


001405 




12 


012260 


012702 


0000000 


13 


012264 


020227 


OOOOOOG 


14 


012270 


103404 




15 


012272 






16 


012300 


000425 




17 








IS 








19 








20 


012302 






21 


012310 


016200 


OOOOOOG 


22 


012314 


020027 


OOOOOOG 


23 


012320 


001405 




24 


012322 




OOOOOOG 


■cdt> 


1 23c? <3 






2.6 


012334 


062702 


OOOOOOG 


27 


012340 


020227 


OOOOOOG 


28 


012344 


103761 




29 


012346 






30 








31 








32 








33 


012354 


012602 




34 


012356 


000207 





. SBTTL 



SPOOL 



SHOW SPOOL 

List the names of the spooled devices. 

SHOSPL: MOV R2, -(SP) 

See if there are any spooled devices 



3*: 



TSTB 


NSPLDV 


BEQ 


3* 


MOV 


#SDCB. R2 


CMP 


R2, #SDCBND 


BLO 


1* 


. PRINT 


#TM*NSD 


BR 


9* 



; Are there any spooled devices? 

; Br if not 

i Point to first spooled device control block 

; Are there any spooled devices? 

;• Br if there are spooled devices 

j There avB no spooled devices 



There are spooled devices* print their names 



1*: 
2*: 



4*; 



-PRINT #TM*SDN 

MOV SDNAME(R2), RO 

CMP hO, #DM¥DEv 

BEQ 4« 

CALL PRTR50 

.PRINT #SPACE2 

ADD #SDCBSZ. R2 

CMP R2, #SDCBND 

BLO 2« 

.PRINT #CRLF 



Finished 



9*: 



MOV < SP ) +, R2 
RETURN 



Print heading 

Get RAD50 name of spooled device 

Uninstalled device? 

Br if yes 

Print the name 

Print 2 spaces 

Point to next SDCB 

Are there more? 

Br if yes 

Terminate the line 



f 
I 

I 

( 
i 

f 
t 



i 
« 

t 

f 
I 
t 
I 
i 
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SUBSET 



1 
i 
i 
i 



3 






4 






5 






6 


012360 


010146 


7 


012362 


010246 


B 


012364 


010346 


9 


012366 


010446 


10 


012370 


010546 


11 






12 






13 






14 


012372 


004767 



15 
16 
17 

18 

19 

20 

21 

22 

23 

24 

25 O 
26 
27 
28 

29 

30 

31 
32 
33 
34 

35 

36 
37 
38 
39 

40 

41 
42 
43 
44 







12376 
12402 
12406 
12410 

12412 
12416 

12420 
1 2426 



12430 
12434 
12436 



12442 
12444 



12446 
12450 
12454 



46 

47 

48 
49 

50 

51 

52 

53 

54 

55 
56 
57 



12462 
12464 
12470 
012474 
12500 
12504 
12512 
12514 
12520 
12524 
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SHOW SUBSET 

Display information about logical disks. 



012703 
012704 
005714 
001007 

062704 
077305 

U00472 



016702 
005003 
012704 



005714 
001453 



010200 

004767 



010346 
012703 
004767 
112723 
112713 

012603 
016305 
004767 



OOOOOOG 



000010 
OOOOOOG 



OOOOiO 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
000133 
000200 



OOOOOOG 
OOOOOOG 



SHOSUB: 


MOV 


Rl, -(SP) 




MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


R4, -(SP) 




MOV 


R5, -(SP) 



First do a SET LD CLEAN to update logical disk information 

CALL LDCLE.N ; DO SET LD CLEAN 

Make a fast scan and see if any logical disks are mounted 



5*: 



MOV #8. . R3 

MOV #LDNAME. R4 

TST (R4) 

BNE 6* 

ADD #8. , R4 

SOB R3, 5* 
. PRINT #NOLDrir 



GET # LOGICAL DISK ENTRIES 

POINT TO FILE NAME TABLE 

IS THIS DISK ASSIGNED TO A FILE? 

BR IF YES 

POINT TO NEXT ENTRY IN TABLE 

LOOP IF MORE TO CHECK 

NO LOGICAL DISKS MOUNTED 



BR 



9« 



Now begin to display logical disk information 



6*: 



MOV 
CLR 
MOV 



R3 
#LDNAME, R4 



GET "LDO" NAME 

INIT DISK TABLE INDEX 

POINT TO FILE NAME TABLE 



See if next logical disk unit is assigned 



2*: 



TST 
BEQ 



(R4) 
1* 



Print logical disk name 

MOV R2, RO 
CALL PRTR50 
. PRINT ttSUBARO 

Print the file name 



MOV 


R3, -(SP) 


MOV 


#BLKO, R3 


CALL 


EDTFIL 


MOVB 


#133, (R3)-+- 


MOVE 


#200, (R3) 



. PRINT #BLKO 

MOV (SP)+, R3 

MOV LDSIZE(R3), R5 

CALL PRTDEC 

. TTYOUT #135 



i IS DISK ASSIGNED TO A FILE? 
i BR IF NOT 



GET DISK NAME 
PRINT THE DISK NAME 

I' __.■^. " 



SAVE R3 

EDIT FILE NAME INTO BLKO 

EDIT FILE NAME 

"C" START OF FILE SIZE 

TERMINATE NAME STRING 

PRINT NAME 

GET FILE SIZE 
PRINT IT 
"3" 



Print "read only" if that is the case 



I 
I 
f 



c 
I 
r 
I 
c 
I 
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58 

60 01 

61 01 
62 

63 
64 

65 01 

66 01 

67 01 

68 01 
69 

70 

/ ± 

73 01 

73 01 

74 01 

75 01 

76 01 
77 

78 
79 
80 01 



81 

82 



01 
01 



S3 01 

84 01 

85 01 



2534 
2542 
2544 



2552 
2556 
2560 
2566 



2574 
2576 
2602 
2606 
2612 



2614 
2616 
2620 
2622 
2624 
2626 



001403 



005763 



005202 
062704 
062703 
020527 
101713 



012605 
012604 
1 k'6U J 
012602 
012601 
000207 



Ov/wOOG OOOwOOG 



BIT #LD*RONi LDFLAG<R3) i IS IS MOUNTED READ-ONLY 

BEQ 3* ; BR IF NOT 

.PRINT #RONTXT ; PRINT "(read only)" 

Print "not available" if that is the case 



OOOOOOG 



3*: 



4*: 



TST LDPDEV(R3) 

BNE 4* 

.PRINT #NOTAVL 

. PRINT #CRLF 

Advance to next logical disk 



if: 



000010 

000002 
000016 



9*: 



INC 


R2 


ADD 


#e. , R4 


ADD 


#2, R3 


CMP 


R3, #14. 


BLDS 


2* 


Finished 




MOV 


(SP)+. R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


MOV 


<SP)+, R2 


MOV 


( SP ) +, R 1 


RETURN 





IS FILE CURRENTLY ACTIVE? 
BR IF YES 
NOT AVAILABLE 
PRINT THE LINE 



J ADVANCE LOGICAL DISK NAME 
J ADVANCE NAME POINTER 
i ADVANCE TABLE POINTER 
i DONE ALL? 
i BR IF NOT 



I 
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t 
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cn-r-ri 



'v'M 



3 








4 








5 


012630 


012767 


105646 


6 


012636 


005067 


000002G 


7 


012642 






8 


012650 






9 


012670 


103004 




10 


012672 






11 


012700 


000476 




12 








13 








14 








15 


012702 






16 


012744 


103451 




17 


012746 






18 


012754 


016705 


OOOOOOG 


19 


012760 


012703 


000006 


20 


012764 


004767 


OOOOOOG 


21 


012770 






22 


012776 


016705 


000002G 


23 


013002 


004767 


OOOOOOG 


24 








25 








26 








27 


013006 






28 


013050 


103407 




29 


013052 






30 


013060 


016705 


OOOOOOG 


31 


013064 


004767 


OOOOOOG 


32 








33 


013070 






34 


013076 






35 


013104 






36 


013112 


000207 





SHOW CURRENT VM BASE, TOP AND DEVICE SIZE 



OOOOOOG SHOWVM: MOV S'-RVMO, FILNAM i Set device name VM: 

CLR FILNAM+2 ; No file name 

. SERR i Trap . LOOKUP errors 

.LOOKUP #XAREA, #1, #FILNAM ; Get channel to VMO: 

BCC 1* ; Branch if u>e got VM 

• PRINT #SHVTX4 ; "VM not installed" 

BR 9* ; Exit if no VM 

Get current base and top 

1*: . SPFUN #XAREA, #1, #372, #BLKO, #0, #0 i Request VM base and top 

Ignore command on error 
.' VM Ba5e = " 
Retrieve base 
Six digit display 
Display it 
" Top=" 
Retrieve top 
Display it 

Get current device size m blocks from handler 

.SPFUN #XAREA, #1, #373, #BLKO, #0, #0 i Request VM device size 



. SPFUN 


#XAREA, #1 


BCS 


8* 


. PRINT 


#SHVTX1 


MOV 


BLKO, R5 


MOV 


#6, R3 


CALL 


OCTFIX 


. PRINT 


#SHVTX2 


MOV 


BLKO+2, R5 


CALL 


OCTFIX 



8*: 
9«: 



BCS 8* 

. PRINT #SHVTX3 

MOV BLKO, R5 

CALL PRTDEC 

. CLOSE #1 

.PRINT #CRLF 
. HERR 
RETURN 



Skip size if bad 

" Size=" 

Retrieve size 

Display decimal size in blocks 

J Only close if successful open 

i Format display 

; Give back error trapping 



I 
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3 
4 

5 
6 
7 
S 

f 

10 

11 

12 
14 



013114 
013120 



004767 

000167 



170610 

ooooooe 



i^\•K^^'^A rsn.A'rfL.'^ rsof^nrsnr* 

013130 000167 OOOOOOG 



. 3BTTL SYSTAT <?< WHO) command 



THE WHO COMMAND PRINTS OUT A LIST OF ALL LINE NUMBERS 
WHICH ARE LOGGED ON. 



CMDWHO: CALL 
JMP 



SHOJOB 
RDCMD 



; SHOW JOB INFORMATION 



SBTTL USE command 



Process the USE command. 



CMDUSE: CALL 
JMP 



PRTflM 
RDCMD 



; PRINT CONNECT AND CPU TIME FOR JOB 



I 

< 

f 

i 

I 

i 

i 
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1 
2 
3 
4 
5 

a 

7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 
IS 

19 

20 

21 
22 
23 
24 

25 

26 

27 

28 
29 
30 
31 

32 

33 

34 

35 

36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

46 

47 

48 

49 

50 

51 



13134 
13136 
13140 
13142 

13144 
13152 
13156 
13162 
13164 
13166 
13170 
13174 

13202 

13210 

13216 

013222 

013224 

013226 

13230 

13234 
13240 



13242 
13244 
13246 
13250 
13252 



13254 
13260 
13264 

13274 
13300 
13304 
13310 
13314 
15320 



010146 
010246 
010346 
010446 



016704 
016705 
000241 
006004 
006005 
004767 



016767 
016767 
012702 
012200 
00 1 406 



01 2201 
001773 
004767 
000770 



012604 
012603 
012602 
012601 
000207 



0000000 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 
000000 



. SBTTL PRTUSE 



Pri 



PRTUSE is called to print 



nt system usage statistics 
the system usage statistics. 



OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 
OOOOOOG 
013254' 



OOOOOOG 
000002G 



OOOOOOG 



PRTUSE: MOV 

MOV 

MOV 

MOV 
; Print system 

. PRINT 

MOV 

MOV 

CLC 

ROR 

ROR 

CALL 

. PRINT 
i Print system 

MOV 

MOV 

MOV 
1*. MOV 

BEQ 

. PRINT 

MOV 

BEQ 

BR 



Rl, 
R2> 
R3, 
R4, 



(SP) 
•<SP) 

(SP) 
•<SP) 



2*: 



Finished 

MOV 
MOV 
MOV 
MOV 



up-time. 
#UP TMMS 
TMTOTH, R4 
TMTOTL, R5 

R4 

R5 

PRTTMD 

#CRLF 

usage statistics 

TMTOTH. DIVSOR 

TMTOTL, DIVSOR+2 

#SUMVEC, R2 

<R2)+, RO 

2* 

(R2)+, Rl 
1* 

PRTPCT 
1* 



(SP)+, R4 
(SP)+, R3 
<SP)+, R2 
(SP)+, Rl 



; "UPTIME; " 

j GET TOTAL UP-TIME (OR TIME SINCE LAST RESET) 

DIVIDE TIME VALUE BY 2 TO GET 1/10 SEC UNITS 
SHIFT HIGH-ORDER PART 
AND LOW-ORDER PART 
PRINT TIME VALUE 
TERMINATE LINE 

; SET TOTAL UP-TIME AS DIVISOR FOR PERCENTAGE 

i POINT TO DRIVER VECTOR TABLE 

,GET ADDRESS OF ASCIZ STRING TO PRINT 

; BR IF END OF LIST HIT 

i PRINT TEXT MESSAGE 

; GET ADDRESS OF TIME CELL TO PRINT 

i BR IF NONE WITH THIS TEXT 

; CONVERT TO PERCENTAGE AND PRINT VALUE 



RETURN 



OOOOOOG 

OOOOOOG 

OOOOOOG 

OOOOOOG 

000000 

OOOOOOG 

OOOOOOG 

000000 

000000 



Driver vector for system usage printout. 

First entry of each pair is the address of an asciz string to print. 

Second entry is address of 32-bit time value to be printed as percentage. 

RUN-TIME 
I/O WAIT 
SWAP WAIT 
IDLE TIME 
END OF LINE 
USER I/O TIME 
SWAP TIME 
END OF LINE 

; END OF LIST 



SUMVEC: . WORD 


SUMl, TMUSRH 


. WORD 


SUM2, TMIOWH 


. WORD 


SUMS, TMSWTH 


. WORD 


SUM4, TMIDLH 


, WORD 


SUMS, 


. WORD 


SUM6, TMIOH 


. WORD 


SUM 7, TMSWPH 


. WORD 


SUMS, 


. WORD 


SUMS, 


. WORD 
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Command 


MEMORY ( 

1 

2 


romfiiand 






3 
4 
5 
6 


013322 


004767 


OOOOOOG 


7 


013326 


111300 




8 

9 

10 


013330 


001004 










11 








12 


013332 


004767 


000124 


13 


013336 


000167 


OOOOOOG 


14 








15 








16 








17 


013342 


105767 


OOOOOOG 


18 


013346 


001005 




19 


013350 






20 


013356 


000167 


OOOOOOG 


21 


013362 


004767 


OOOOOOG 


22 


015366 


120027 


000113 


23 


013372 


001001 




24 


013374 


005203 




25 


1 3370 


1 2 1 327 


000127 


26 


013402 


001001 




27 


013404 


006301 




28 








29 


013406 


020167 


OOOOOOG 


30 


013412 


101413 




31 


013414 


016701 


OOOOOOG 


32 


013420 


010105 




33 


013422 






34 


013430 


004767 


OOOOOOG 


35 


013434 






36 


013442 


072127 


000012 


37 


013446 


001002 




38 


013450 


012701 


177774 


39 


013454 


010167 


OOOOOOG 


40 


013460 






41 








42 








43 








44 








45 


013462 


010546 




46 


013464 






47 


013472 


016705 


OOOOOOG 


48 


013476 


020527 


177770 


49 


013502 


103403 




50 


013504 


012705 


000100 


51 


013510 


000403 




52 


013512 


000305 




53 


013514 


072527 


177776 


54 


013520 


004767 


OOOOOOG 


55 


013524 






56 


013532 






57 


013540 


016705 


OOOOOOG 



MACRO V05. 05 Friday 20-Jan-S9 10:51 Page 36 



TTL 



au I I u 



MEMORY command 



The MEMORY command is used to set or display the maximum memory limit 
for the current lob. 



CMDMEM: CALL 
MOVE 
BNE 



CVTTAB 
(R3), RO 
SETMEM 



CONVERT TAB AND FF CHARS TO SPACES 

WAS A MEMORY LIMIT SPECIFIED WITH COMMAND? 

BR IF YES 



Display current memory values 



CALL 
JMP 



DSPMEM 
RDCMD 



i DISPLAY JOB MEMORY LIMITS 



i GO GET NEX^ 



:OMMAND 



Set a neuj memory limit for the job. 



SETMEM; TSTB 
BNE 



VSWPFL 

4* 

. PRINT #NSWPMS 
JMP RDCMD 



4*: 



1 * ; 



!*: 



CMPB 

BNE 

INC 

CMPB 

BNE 

ASL 



ACRDEC 

RO. #-'K 

1* 

R3 

(R3)> #'W 

2« 

Rt 



IS SWAPPING ALLOWED? 

BR IF YES 

CAN'T CHANGE MEMORY SIZE OF NON-SWAP SYSTEM 

ACCRUE THE VALUE 

DID HE SPECIFY K-SOMETHING? 

BR IF NOT 

SKIP "K" 

WAS IT "KW"? 

BR IF NOT 

DOUBLE MEMORY VALUE 



Compare request with max limit. 



3$: 



5$: 



CMP R1,MXJMEM 

BLOS 3* 

MOV MXJMEM. Rl 

MOV R1,R5 

. PRINT #MAXMTX 

CALL PRTDEC 

. PRINT #KBTX 

ASH #10. > Rl 

BNE 5* 

MOV #177774. Rl 

MOV R1,MAXMEM 
. EXIT 



IS REQUEST LARGET THAN MAX ALLOWED? 

BR IF NOT 

SET TO MAX ALLOWED 

i DISPLAY MAX ALLOWED 



CONVERT # KB TO ADDRESS 

BR IF DIDN'T OVERFLOW 64KB 

SET TO 64KB 

SET AS MAX ADDRESS FOR JOB 

EXIT TO ACTUALLY DO THE MEMORY SIZE CHANGE 



Display information about job memory limits. 



DSPMEM: MOV R5, -<SP) 
.PRINT #CURMTX 
MOV 
CMP 
BLO 
MOV 
BR 

SWAB 
ASH 
CALL 



1*: 
2$: 



MAXMEM, R5 
R5, #177770 
1* 

#64. , R5 
2* 
R5 

#-2, R5 
PRTDEC 
. PRINT #KBTX 
.PRINT #MAXMTX 
MOV MXJMEM, R5 



CURRENT MEMORY = 

GET CURRENT HIGH-MEMOf?Y LIMIT FOR JOB 

64KB? 

BR IF NOT 

DO THIS TO AVOID OVERFLOW IN CONVERSION 

CONVERT TO # KB 

DISPLAY THE VALUE 
PRINT "KB" 
MAX MEMORY = 
MAX SIZE ALLOWED 
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MEMORY command 



5S 013544 004767 000000© 

Vi/ / \J ^ imf \^ ^.f ^^ 

60 013556 012605 

61 013560 000207 



CD D T hJT 

MOV 
RETURN 



PRTDEC 



(SP)+, R5 



. r\TODi AV TWcr uai lip 
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MEMORY command 



X 

n 

a. 

3 
4 

5 013562 010546 

6 013564 006205 

7 013566 004767 OOOOOOG 

8 013572 

9 013600 012605 

10 013602 000207 

11 000001 
Errors detected: 



PRTKB is called to convert a value from # of 256-ujord memory pages 
to # k-bytes and print the value followed by "Kb<cr><lf:>" 



PRTKB: MOV R5, -(SP) 

ASR R5 

CALL PRTDEC 

.PRINT #KBTX 

MOV (SP)+, R5 
RETURN 
. END 



CONVERT # PAGES TO # KB 
PRINT THE VALUE 
PRINT "KB<CR><LF>" 



«»* Assembler statistics 



Work file reads: 
Work file urites: 
Size of work file: 
Size of core pool: 
Operating system: 







12332 Words 

18176 Words 

RT-11 



49 Pages) 
71 Pages) 



Elapsed time: 00:01:15.26 
.LP: TSKSHO=DK: 
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*1STLG 


1-67 






*8BIT 


1-105 






*AUTO 


1-81 


9 


-114 


fCARMN 


1-19S 


9- 


-62 


*CARUP 


1-79 






*CCLRN 


1-SO 






*CFABT 


1-100 






*CFALL 


1-106 






*CFCCL 


1-106 






*CFDCC 


1-106 






*CFOPN 


1-112 






*CFSOT 


1-104 






*CHACT 


1-55 






*CLTST 


1-90 






*CTRLC 


1-98 






*CTRLD 


1-149 






*CTRLO 


1-55 






«CTRLS 


1-85 






*DBKMN 


1-78 






«DEAD 


1-153 


9- 


-23 


fDEBUG 


1-150 






*DEFER 


1-118 






4DETCH 


1 -83 






*DIBOL 


1 67 






*DILUP 


1-102 


9- 


-118 


*DISCN 


1-84 






*DOaFF 


1-108 






*DUPRN 


1-103 






«ECHO 


1-105 






*EMTTR 


1-89 






*FORM 


1-104 






«FORMO 


1-106 






*HARD 


1-153 






*HITTY 


1-66 






*INCOR 


1-122 


11- 


-lis 


*INDAB 


1-154 






*INDDF 


1-152 






*INDRN 


1-152 






*INIT 


1-153 


9- 


-58 


*INKMN 


1-98 






*KED 


1-122 






«KINIT 


1-62 


9- 


■198 


*LC 


1-105 






*LOFCF 


1-198 






*MLOCK 


1-71 


11- 


125 


*NOIN 


1-66 






*NOINT 


1-199 






*NOWTT 


1-66 






«PAGE 


1-105 






^PHONE 


1-153 


9- 


56 


*PRGLK 


1-81 






*QTSET 


1-127 






fQUIET 


1-119 






*RNIOP 


1-200 






*SCOPE 


1-105 






*SGALL 


1-118 







9-165 



11-45 
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$SGHIO 


1-117 
























*SGIIO 


1-117 
























*SGQO 


1-99 
























*SGQ1 


1-117 
























*SGQ1A 


1-117 
























$SGQ1B 


1-117 
























*SGQ1C 


1-117 
























*SGQ2 


1-117 
























*SGQ3 


1-99 
























*SLKED 


1-76 


23-24 






















*SLLET 


1-197 


23-36 






















*SLON 


1-197 


23-15 






















*SLTTY 


1-197 


23-30 






















*SNWTT 


1-150 
























*SPLJB 


1-85 
























*STSNG 


1-55 
























*SUCF 


1-107 
























*TAB 


1-104 
























*TAPE 


1-148 
























*TECO 


1-127 
























STTGAG 


1-112 
























*UCLCF 


1-113 
























*UCLCL 


1-115 
























ifcUCLCM 


i-U5 
























*UCLRN 


1-114 
























fUKMON 


1-79 
























*VNOTT 


1-42 
























*VTESC 


1-75 
























fWILD 


1-128 
























. . . VI 


6-6 


6-8 


6-10 


6-12 


6-15 


6-17 


6-19 


6-21 


6-22 


6-24 


6-25 


6-27 




6-28 


6-30 


6-32 


6-36 


6-38 


6-40 


7-45 


7-47 


7-97 


7-100 


7-103 


7-104 




7-107 


7-108 


7-111 


7-118 


7-122 


7-124 


7-127 


7-136 


7-138 


8-7 


8-13 


0-20 




8-23 


8-25 


8-32 


8-39 


8-45 


8-51 


8-59 


8-64 


9-13 


9-14 


9-15 


9-43 




9-65 


9-81 


9-120 


9-126 


9-132 


9-134 


9-141 


9-143 


9-146 


9-150 


9-152 


9-173 




9-175 


9-178 


9-186 


9-192 


9-202 


9-204 


9-211 


10-14 


10-20 


10-23 


10-27 


10-28 




10-40 


10-43 


10-58 


10-73 


10-95 


10-108 


10-110 


10-114 


10-124 


10-128 


11-36 


11-37 




11-60 


11-61 


11-69 


11-73 


11-85 


11-88 


11-89 


11-96 


11-111 


11-114 


11-120 


11-127 




11-129 


11-133 


11-134 


11-140 


11-141 


11-157 


11-160 


11-162 


11-166 


11-173 


11-181 


11-183 




12-14 


12-15 


12-21 


13-33 


14-9 


14-10 


14-11 


15-68 


16-21 


16-21 


16-21 


16-26 




16-26 


16-32 


16-32 


16-98 


16-98 


18-6 


18-16 


18-19 


18-20 


18-30 


18-33 


18-34 




18-43 


18-46 


18-52 


18-58 


18-60 


18-61 


19-21 


19-27 


19-28 


19-29 


19-39 


19-61 




20-59 


20-60 


20-78 


20-84 


20-132 


20-144 


20-147 


20-159 


20-166 


21-5 


21-10 


21-11 




21-12 


21-15 


21-18 


21-21 


21-24 


21-27 


22-9 


22-12 


22-20 


22-27 


22-33 


22-36 




23-10 


23-11 


24-21 


24-31 


24-36 


24-59 


24-72 


24-76 


25-36 


26-33 


26-34 


26-53 




26-58 


26-61 


26-62 


26-64 


26-85 


26-87 


26-91 


26-94 


26-96 


26-100 


26-108 


27-11 




27-17 


27-18 


27-22 


27-27 


28-11 


28-20 


28-42 


29-14 


29-20 


29-24 


30-17 


30-22 




31-15 


31-20 


31-25 


31-29 


32-24 


32-42 


32-51 


32-55 


32-61 


32-67 


32-68 


33-8 




33-8 


33-8 


33-10 


33-15 


33-17 


33-21 


33-27 


33-29 


33-33 


33-33 


33-34 


35-10 




35-17 


35-24 


36-19 


36-33 


36-35 


36-46 


36-55 


36-56 


36-59 


37-8 






. . . V2 


16-21 


16-21 


16-21# 


16-21# 


16-26 


16-26 


16~26# 


16-26# 


16-32 


16-32 


16-32# 


16-32# 




16-98 


16-98# 


33-8 


33-8 


33-8# 


33-8# 


33-15 


33-15 


33-15 


33-1 5# 


33-1 5# 


33-1 5# 




33-27 


33-27 


33-27 


33-27# 


33-27# 


33-27# 


33-33 


33-33# 










ABRTAD 


1-42 
























ABRTCD 


1-42 
























ABRTCF 


1-160 
























ACRDEC 


1-168 


36-21 
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( 



• . ACRFIL 1-167 

ACRFN 1-160 

ACROCT 1-170 

ACRSPD 1-70 

AD**SZ 1-58 19-15 19-65 

AD*DVU 1-58 19-40 

AD*JOB 1-58 19-13 19-34 

ADM3A 1-143 

ADM3FL 1-144 

ADM3N0 1-146 

AF*BYA 1-39 24-96 

AFfCCA 1-32 24-102 

AF*DBG 1-199 24-95 

AF*DUP 1-32 24-98 

AF*HIE 1-199 24-90 

AF*IND 1-32 24-99 

AF*IOP 1-200 24-92 

AF«MEM 1-41 24-93 

AF$NOI 1-199 24-91 

AF$NOW 1-41 24-39 

AF$NPW 1 32 24-103 

AF*PLK 1-199 24-94 

AF$SCA i-4i 24-SS 

AF*SET 1-32 24-lOi 

AF*TPO 1-39 24-97 

AF$UCL 1-32 24-100 

ALCDEV 1-28 

ALCEND 1-57 19-16 19-66 

ALCHDl 1-54 19-28 

ALCHD2 1-54 19-29 

ALCTBL 1-57 19-12 19-33 

ALDBLK 1-183 

ALDEX 1-182 1-183 

ALFN 1-194 

AMBOPT 1-168 1-181 5-18 

AR**SZ 1-197 

AR$CNT 1-196 

AR*CON 1-196 

AR*CPH 1-196 

AR*CPL 1-196 

AR*DMY 1-197 

AR*PRG 1-196 

AR*PRJ 1-196 

AR*UNM 1-196 

ARNRPB 1-197 

< ASDEX 1-165 
ASKLNM 1-164 

ASNEND 1-103 18-14 18-28 18-63 

* ASNHDl 1-177 18-6 
ASNHD2 1-177 18-43 
ASNOVF 1-165 1-190 

i ASNTBL 1-102 18-10 18-24 18-38 

AT**SZ 1-100 1-132 18-13 18-27 18-62 

AT*DEV 1-132 18-44 

< AT*EXT 1-132 18-53 

AT*FIL 1-132 18-47 18-50 
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AT*LOG 
ATfSIZ 


1-132 
1-132 


lS-11 
18-56 


18-25 


18-39 


18-41 








AUTHFN 


1-187 
















BADCMD 
BADPMT 


1-164 
1-171 
















BADPRI 


1-171 














BADSAV 


1-164 
















BASMAP 


1-137 


8-34 














BDFNAM 


1-167 














BDLGOP 


1-172 
















BDLIN 


1-185 
















BDSO 


5-11 


5-16# 












BELL 


2-7# 
















BLANK 


2-6# 
















BLKO 


1-163 


16-26 


16-28 


16-32 


16-33 


16-45 


20-14 




24-15 


24-18 


24-21 


25-26 


32-47 


32-51 


33-15 




BLKWDS 


2-ll# 
















BOTDEV 


1-97 














BOTUNI 


1-97 
















C. CSW 


1-109 
















C. DEVQ 


1-109 














C. SBLK 


1-109 
















CIDEVX 


1-133 


10-85 














CALUCL 


1 - 1 76 


13-29 












CASCBR 


1-91 
















CASCUP 


1-91 
















CASTBR 


1-91 














CASTBW 


1-91 
















CASTRO 


1-92 
















CASTWO 


1-92 














CCLNAM 


1-191 
















CCLSAV 


1-88 
















CD**SZ 


1-110 


20-22 


20-109 










CD**UB 


1-110 
















CD*BAS 


1-110 


20-38 


20-48 


20-82 


20-89 


20-97 


20-99 




CD*DVU 


1-110 


20-17 


20-36 


20-43 


20-70 


20-91 


20-95 


CD*JOB 


1-110 


20-141 














CD*NAM 


1-110 


20-121 














CD*TOP 


1-127 


20-101 












CDBAS5 


4-ll# 


20-105 


20-108* 












CDBASE 


4-9# 


20-38* 


20-48 












CDBUF 


1-35 


20-17 


20-36 


20-38 


20-43 


20-48 


20-70 




CDDVU 


20-99 
4-10# 


20-101 
20-91* 


20-105 
20-95 


20-108 


20-121 


20-141 






CDOET 


1-35 


20-16 


20-35 


20-42 


20-69 


20-94 


20-115 




CF*IND 
CF*QUT 


1-154 
1-154 
















CFABLV 


1-155 
















CFBLK 
CFBUF 
CFCHAN 


1-119 

i-SS 

1-118 
















CFEND 
CFHOLD 


1-88 
1-126 
















CFIND 


1-108 














CFLFL4 


1-113 
















CFNEST 


1-111 















20-19 20-30 20-57 20-64 20-164 
33-18 33-22 33-27 33-30 
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CFPNT 


1-119 




CFSEND 


1-112 




CFSP 


1-112 




CFSPND 


1-125 




CFSTK 


1-62 




CFSTS 


1-154 




CHAIN 


1-98 




CHKALC 


1-105 




CHKDEV 


1-191 




CHKDLM 


1-181 




CHKEQ 


1-39 




CHKMNT 


1-166 




CHKMTX 


1-166 




CINDAT 


1-136 




CINFLO 


1-42 




CKACOJ 


1-39 




CKCLUS 


1-33 


10-65 


CKPRIV 


1-168 




CKSYPV 


1-39 


7-133 23-6 


CL*COL 


1-60 




CL*LEN 


1-95 




CL*LIN 


1-95 




CL$LIX 


1-56 


10-50 10-99 


CL*OPT 


1-94 


10-lOi 


CL$RQH 


1-57 




CL*SKP 


1-95 




CL*WID 


1-95 




CL*WQH 


1-57 




CLDEVX 


1-134 


10-79 


CLFREE 


1-51 


9-202 


CLLINE 


1-51 


9-52 


CLOPND 


10-120 


10-166# 


CLOPTB 


10-102 


10-153# 


CLOTIR 


1-59 




CLRPRV 


1-36 




CLSFCH 


1-63 




CLSFSP 


1-92 




CLTDTL 


1-92 


10-12 10-133 


CLUNIT 


1-51 


9-204 


CLVERS 


1-51 


10-21 


CMDBUF 


1-159 


1-176 13-24 


CMDCCL 


1-191 




CMDDSN 


1-27 




CMDFRM 


1-27 




CMDHD 


1-26 




CMDMEM 


1-28 


36-6# 


CMDOFF 


1-26 




CMDSET 


1-28 




CMDSHO 


1-28 


5-5# 


CMDUSE 


1-28 


34-13# 


CMDWHO 


1-28 


34-6# 


C0*8BT 


1-109 


10-157 


CO*BNI 


1-94 


10-162 


CO*BNO 


1-94 


10-161 


CO*CR 


1-93 


10-163 


CO*CTL 


1-93 


10-164 
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CO*DEF 1=60 

CO*DTR 1-92 10-165 

CO*FF 1-93 10-154 

C0*FF0 1-93 10-160 

CO*LC 1-93 10-156 

CO*LFI 1-94 10-159 

CO*LFO 1-94 10-158 

CO*TAB 1-93 10-155 

COAD 1-182 1-183 

COAF 1-195 

COAL 1-182 1-183 

CDLOO 1-176 11-162 

COMMA 2-10# 

C0NFG2 1-56 9-25 

CONFIG 1-107 

CORUSR 1-55 9-38 11-57 

CPUAH 1-176 

CPUAL 1-176 

CR 2-5# 

CRLF 1-171 6-6 6-8 6-10 6-12 6-15 6-17 6-19 6-21 6-24 6-27 6-30 
6-32 6-36 6-38 6-40 7-47 7-103 7-107 7-127 9-13 9-211 10-128 11-183 
15-68 18-20 18-34 18-61 19-27 19-61 20-159 21-27 22-9 22-20 22-36 24-76 
26-108 27-17 27-18 27-27 28-42 30-17 31-29 32-68 33-34 35-17 

CS*RON 1-74 

CSHALC 1-97 7-116 

CSHDEV 1-102 20-13 20-92 

CSHDVN 1-102 20-23 20-110 

CSHHD 1-158 

CSHMSG 1-198 8-51 

CSHSIZ 1-138 8-52 

CSIMSl 1-170 

CSIMS2 1-168 

CSIMS4 1-190 

CTLNAM 4-17# 9-70 

CTRLTT 1-96 9-50 

CURMTX 1-181 36-46 

CURPRM 1-124 

CVDVNM 1-178 19-41 20-76 

CVTTAB 1-159 5-6 36-6 

CVTUC 1-158 

CW*50H 1-107 

CW*PRO 1-56 9-25 

CXTBAS 1-101 

CXTPAG 1-73 

CXTWDS 1-101 

DATTIM 1-27 

DCCRD 1-131 

DCCWR 1-131 

DCSR 4~7# 16-2Sfe- 16-37 16-61 

DCTRD 1-131 

DCTWR 1-131 

DEADEV 1-166 

DELSPC 1-180 

DETARG 1-195 

DETHD 1-195 

DETTXT 1-174 11-69 
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DEVDSP 14-16 15-7# 

DEVHDl 1-177 

DEVIDL 1-182 1-1S2 1-183 

DEVUNT 1-169 

DFJMEM 1-62 

DIABFL 1-119 

DIABLO 1-142 

DIABNO 1-120 

DIVIDE 1-175 11-150 

DIVSOR 1-lSS 35-19# 35-20# 

DJABMS 1-186 

DKASHD 1-53 18-30 

DKSAV 1-159 

DLCEMT 1-28 

DLMSG 1-186 

DLTXT 1-173 

DMT ALL 1-186 

DMTARG 1-165 

DMTSUB 1-191 

DMYDEV 1-39 30-10 31-22 

DOASGN 1-79 

DORUN 1-27 

DOSTQF 1-187 

DSPCSR 15-64 i6~7# 

DSPMEM 8-68 36-12 36-4 5# 

DVEC 4-6# 16-33* 16-38 16~71 

DVSHHl 1-53 14-9 

DVSHH2 1-53 14-10 

DVSHH3 1-53 14-11 

DVSTAT 1-70 15-29 

DZTXT 1-193 

EDIT 1-67 

EDTFIL 1-179 24-16 32-48 

EM*ACL 1-48 

EM*CAP 1-38 

EM*CIP 1-47 

EM*CLB 1-48 

EM*CLN 1-47 

EM*CNO 1-38 

EM*CPO 1-38 

EM*CSE 1-64 

EM*HNI 1-62 

EM*ICL 1-46 

EM*ILN 1-47 1-48 

EM* I UN 1-47 

EM*NAD 1-40 

EMfNPD 1-47 

EM*NSF 1-47 

EM$NSL 1-48 

EM*NUK 1-80 

EMfSLT 1-48 

EM*SLW 1-48 

EM*TSL 1-48 

EM*UIO 1-49 

ERRLOC 1-61 

ERRSEV 1-128 



I 
I 
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ESC 


1-76 








FC«CDX 


1-158 








FC*LNK 


1-158 








FD*NAM 


1-158 








FF 


2-9# 








FILNAM 


1-160 


1-161 


33-5# 


33-6* 


FKILL 


1-160 


5-18 


5 19 


11-27 


FPRINT 


1-160 








FRAC64 


26-52 


26-1 19# 






FSTDL 


1-83 








FSTIOL 


1-56 


1-73 


9-217 




GAGMSG 


1-185 








SENTOP 


1-97 








GETKCH 


1-71 








ORTl 


1-139 








GTRD50 


1-165 








H. CSR 


1-70 


16-28 






H, VEC 


1-70 


16-33 


16-45 




HANBSY 


1-170 








HANCHN 


1-58 








HANENT 


1-69 


15-37 






HAN IOC 


1-33 


15-21 






HANNAM 


4-5# 


16-15* 


16-16# 


16-21 


HANPAR 


i-70 


15-48 






HANS I Z 


1-69 


15-56 






HAZEL 


1-71 








HAZLFL 


1-71 








HAZLNO 


1-71 








HI MAP 


1-137 


8-60 






HIPRI 


1-171 








HNBUF 


1-169 








HUPARG^ 


1-190 








II«*SZ 


1-40 


23-22 






II*FLG 


1-40 


24-27 






II*NAM 


1-40 


23-19 


24-14 




II*NPV 


1-42 


24-48 


24-68 




IlfPRV 


1-42 


24-47 


24-64 




IIBUF 


1-40 


23-19 


24-14 


24-27 


ILLCMD 


1-166 








ILSW2 


1-77 


9-56 


9-114 




IN*ACT 


1-152 








IN*CMD 


1-152 








IN$CNT 


1-152 








INDACT 


1-162 








INDERR 


i-iOO 








INDSAV 


1-152 








INDSTA 


1-100 








INFOMT 


1-166 








INGADR 


1-40 


23- 16^^ 






INGEMT 


1-40 


23-17 






INSANT 


24-26 


24-BS# 






INSPRT 


23-21 


24-7# 






INSTBL 


1-40 


23-15 






INSTBN 


1-41 


23-23 






INVDAT 


1-195 








INVDEV 


1-194 









33-8 



i 

€ 

i 
I 



i 
i 

24-47 24-48 24-64 24-68 
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INVEC 1-153 9-78 

INVLDM 1-190 

INVLDN 1-167 

INVOPT 1-181 5-19 11-27 

INVTIM 1-186 

lOABFL 1-55 

ITRMTP 1-154 

JCXPGS 1-137 S-65 

JCXSMS 1-193 8-64 

JSTKND 1-96 

JSWLOC 1-61 

KBMSG 1-175 11-140 

KBPARN 1-37 S-20 

KBTX 1-179 36-35 36-55 36-59 37-8 

KCSIBF 1-164 

KCSIMS 1-165 

KDOCIN 1-26 

KED 1-67 

KILEMT 1-187 

KL3CLR' i-81 

KL4CLR 1-121 

KMNBAS 1-149 

KMNCHN 1-88 

KMNHI 1-72 

KMNNAM 1-191 

KMNPGS 1-73 

KMNSTK 1-73 

KMNSTR 1-73 

KMNTOP 1-73 

KMPRMT 1-133 

L 3-70 3-70# 3-71 3~71# 3-72 3~72# 3-73 3-73# 3-74 3-74# 3-75 3~75# 
3-76 3-76# 3-77 3-77# 3-78 3-78# 3-79 3-79# 3-80 3-S0# 3-81 3-81 # 
3-82 3-S2# 3-83 3-83# 3-84 3-S4# 3-85 3-85* 3-86 3-S6# 3-87 3-87# 
3-88 3-SS# 3-89 3~89# 3-90 3-90# 3-91 3-91 # 3-92 3-92# 3-93 3-93# 
3-94 3-94# 3-95 3-95# 3-96 3-96# 3-97 3-97# 3-98 3-9S# 3-99 3-99# 
3-100 3~100# 3-101 3-101# 3-102 3-102# 3-103 3-103# 3-104 3-104# 3-105 3-105# 
3-106 3-106# 3-107 3-107# 3-108 3-108# 3-109 3-109# 3-110 3-1 10# 3-111 3-1 11# 
3-112 3-112# 3-113 3-113# 3-114 3-114# 3-115 3-115# 3-116 3-116# 3-117 3-117# 
3-118 3-1 18# 3-119 3-1 19# 3-120 3-120# 3-121 3-121# 3-122 3-122# 3-123 3-123# 
11-8 ii-e# 

LA120 1-142 

LA12FL 1-143 

LA12N0 1-143 

LA36 1-142 

LA36FL 1-120 

LA36N0 1-120 

LACTIV 1-74 

LAFSIZ 1-77 

LBSPRI 1-155 

LCBIT 1-142 

LCDTYP 1-60 9-69 

LCLTXT 1-51 9-55 

LCLUNT 1-56 9-116 9-161 9-194 

LCOL 1-76 1-127 

LCONTM 1-85 11-146 
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LCPUHI 


1-S5 


11-167 




LCPULO 


1-85 


11-168 




LD*RON 


1-115 


32-59 




LDBASE 


1-116 






LDCLEN 


1-65 


32-14 




LDDEVX 


1-118 






LDFLAG 


1-116 


32-59 




LDMNT 


1-64 






LDNAM 


1-164 






LDNAME 


1-116 


32-19 


32-31 


LDOPHD 


1-172 






LDPDEV 


1-116 


32-65 




LDSI2E 


1-116 


32-53 




LF 


2-4# 






LF*OPN 


1-157 






LF*WRT 


1-157 






LFWLIM 


1-77 






LICTXT 


1-139 






LINBUF 


1-72 






LINCNT 


1-74 






LINCUR 


1 77 






LINFRE 


1-186 






LINIR 


1-59 






LINNXT 


i-72 






LINPNT 


1-74 






LINRTS 


1-59 






LITIME 


1-99 






LJSW 


1-96 






LMXLN 


1-153 


9-72 


9--82 


LMXNUM 


1-151 


9-73 


9-95 


LMXPRM 


1-154 


9-122 


9-138 


LNAME 


1-54 


9-188 




LNBLKS 


1-101 


11-135 




LNMAP 


1-107 






LNPRIM 


1-107 


9-39 


11-71 


LNSBLK 


1-102 


11-136 




LNSPAC 


1-111 






LOCKTX 


1-175 


11-127 




LOFSPC 


1-104 






LOGASN 


1-167 






LOGBAS 


1-126 


1-128 




LOGBLK 


1-156 






LOGBUF 


1-156 






LOGCHK 


1-127 






LOGCHN 


1-156 






LOGCLS 


1-171 






LOGDVU 


1-126 


1-128 




LOGFLG 


1-156 






LOGPTR 


1-156 






LOMAP 


1-137 


8-33 


3-61 


LOTBUF 


1-75 






LOTNXT 


1-75 






LOTPNT 


1-75 






LOTSIZ 


1-76 






LOTSPC 


1-76 






LOUT I R 


1-59 
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f 



c 
I 

r 
I 



LP*7BT 1-46 9-139 

LPfODD 1-46 9-148 

LPfPAR 1-46 9-144 

LP*SPD 1-46 

LPRGl 1-140 11-174 

LPRG2 1-140 11-176 

LPRI 1-155 7-98 11-93 

LPROG 1-84 

LPROJ 1-84 

LRBFIL 1-108 

LRDTIM 1-74 



LSCCA 1-104 

LSECPT 1-89 11-76 

LSTACT 1-72 

LSTATE 1-135 11-101 

LSTDL 1-83 11-67 

LSTHL 1-56 9-213 

LSTIOL 1-56 

f LSTMX i-lSl 



f 
i 
f 
f 



€ 

LSTPL 1-129 9-53 9-163 9-196 9-215 11-65 11-74 

L3TPRM 1-125 

t LSTSL 1-135 11-188 i 

LSTSPL 1-70 12-16 

lSUCF i-SO 

I LSW 1-55 9-58 9-118 9-165 9-198 11-45 11-118 ^ 

LSW2 1-98 

LSW2S 1-103 

f LSW3 1-103 9-23 9-159 9-184 

LSW4 1-121 

LSW5 1-81 9-62 

€ LSW6 1-150 11-125 

LSW7 1-154 28-15 29-18 

LSW8 1-117 

LSW9 1-79 

LTRMTP 1-143 

LTSCMD 1-111 

LUNAME 1-84 

MAXALC 1-57 

MAXASN 1-100 

MAXAVL 1-169 

MAXMEM 1-61 36-39* 36-47 

MAXMTX 1-181 36-33 36-56 

MAXPRI 1-61 1-155 

MAXSEC 1-89 11-77 

MDMTXT 1-202 21-11 

MDT 1-71 

MHNSIZ 1-90 8-40 

MHNSMS 1-91 8-39 

HINTIM 1-89 11-145 

MISSEQ 1-170 

MNBASE 1-180 

MWBPC 1-179 

MNFLGS 1-179 

MNTARG 1-190 

MNTDEV 1-165 

MNTFUL 1-167 
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MNTOP 


1-180 










MNTTXT 


1-192 


6-25 








MONARl 


1-180 








M0NAR2 


1-180 










MONHD 


1-180 










MONVEC 


1-155 








MSOBUF 


1-185 










MSGEND 


1-185 










MTOPHD 


1-166 








MUL32 


1-195 










MXCSR 


1-151 


9-101 








MXDTR 


1-151 








MXJADR 


1-63 










MXJMEM 


1-62 


36-29 


36-31 


36-57 




MXJPRI 


1-155 


7-101 






MXPRMT 


1-133 










MXVEC 


1-153 


9-87 








NAMTOP 


1-139 








NARGS 


3-69# 


3-70 


3-70 


3-71 






3-75 


3-76 


3-76 


3-77 


c 




3-81 


3-82 


3-82 


3-83 




3-87 


3-88 


3-88 


3-89 






3-93 


3-94 


3-94 


3-95 






3-99 


3-100 


3-100 


3-101 




3-105 


3-106 


3-106 


3-107 






3-111 


3-112 


3-112 


3-113 






3-117 


3-118 


3-118 


3-119 




3-123 


11 -7# 


11-S 


11-8 




NAT XT 


1-173 


9-126 








NEDCHR 


1-59 








NEWJSW 


1-96 










NFRESB 


1-123 










NINTXT 


1-173 


9-186 






NLINES 


1-109 


20-154 








NOCCL 


1-172 










NOCIN 


1-164 








NODAT 


1-178 


22-12 








NOFIL 


1-176 


1-184 


12-21 






NOFLAG 


1-166 








NOFRDL 


1-195 










NOIND 


1-170 










NOKMON 


1-191 










NOLDMT 


1-178 


32-24 








NONEMS 


1-178 


20-166 


30-22 






NDOPTT 


1-184 








NOPMGN 


1-180 










NOPRG 


1-160 


1-164 








NOSTRT 


1-163 








NOTAVL 


1-179 


32-67 








NOTON 


1-185 










NOT XT 


1-173 


9- 1 58 


26-85 


26-94 


NOUDC 


1-177 


13-33 








NSPLDV 


1-115 


31-10 








NSWPMS 


1-181 


36-19 






NUCHN 


1-108 










NUHDCD 


1-133 


7-72 
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3-83 3-84 3-84 3-85 3-85 3-86 3-B6 3-87 

3-89 3-90 3-90 3-91 3-91 3-92 3-92 3-93 < 

3-95 3-96 3-96 3-97 3-97 3-98 3-98 3-99 

3-101 3-102 3-102 3-103 3-103 3-104 3-104 3-105 

3-107 3-108 3-108 3-109 3-109 3-110 3-110 3-111 ' 

3-113 3-114 3-114 3-115 3-115 3-116 3-116 3-117 

3-119 3-120 3-120 3-121 3-121 3-122 3-122 3-123 
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NUMDEV 
NUMON 


1-146 
1-77 


14-18 








NUMST 


11-105 


ll-226# 






OCTFIX 


1-173 


9-89 


15-31 


15-42 




OCTPRT 


1-193 


8-22 


9-102 


26-103 




ODTBAS 


1-149 








OF**SZ 


1-14S 










OF^DEV 


1-147 










OF«FIL 


1-147 










OF*FLG 
OF*UNT 
OFFEMT 


1-147 
1-147 
1-1S7 










OFTTXT 
OKFEND 


1-202 
1-90 


21-15 








OKFILE 


1-90 








ONTTXT 


1-202 


21-12 








OPRTXT 


1-51 


9-49 








OPTLST 


1-36 








OT«RON 


1-14S 










OTHRON 


1-189 










OTRMNT 


1-191 








OVRCOR 


1-163 










PO*DBQ 


1-41 










PO*OFR 


1-39 










PO*SPV 


1-37 










PO*SYS 


1-37 


6-33 








PARNNL 


1-37 


8-23 








PASLIN 


1-128 










PAUMSG 


1-159 










PBFEND 


1-112 










PEKADR 


1-35 


25-22* 


25-28 






PEKEMT 


1-35 


25-24 








PEKSIZ 


1-35 


25-23* 








PF*IOW 


1-150 










PF*SYS 


1-150 










PFCO 


1-36 










PESO 


1-36 










PHNTXT 


1-202 


21-5 








PHYMEM 


1-95 


S-8 








PIDCSR 


16-55 


17-36# 








PIDSLT 


17-11# 


17-36 


17-53 






PIDVEC 


16-83 


17-53# 








PMBUSY 


1-180 










PNAME 


1-146 


1-169 


15-14 


16-16 




POPCF 


1-170 










PRGALL 
PRGSIZ 


1-27 
1-72 










PRGTOP 


1-72 










PRIVAO 


1-3S 


27-12 








PRIVCO 


1-41 


6-33 


27-23 






PRIVSO 


1-37 










PRMBUF 
PRMEND 
PRMPNT 


1-125 
1-125 
1-124 










PROSLT 


1-46 


17-12 


17-17 






PRTBUF 


1-178 


20-118 


20-127 


20-132 
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36-34 36-54 36-58 37-7 
PRTFIX 1-172 9-34 9-84 10-54 10-69 11-95 11-155 15-23 15-58 19-51 26-51 26-71 



26-77 



f 
I 
I 



PRTDAT 1-194 22~S 

PRTDC2 1-175 11-158 11-161 22-35 

PRTDC3 1-175 11-139 

PRTDEC 1-169 7-46 7-99 7-102 7-106 7-110 7-126 8-19 9-176 9-206 10-22 JO-44 • 

11-84 18-59 20-148 21-14 21-17 21-20 21-23 21-26 22-32 26-54 32-54 33-31 



I 



PRTFNM 1-178 20-122 

PRTKB 8-11 8-29 8-37 8-43 8-49 8-57 8-62 8-67 37-5# ^ 

PRTLN 1-174 11-52 11-72 

PRTPCT 1-188 35-27 

PRTR50 1-194 9-71 11-175 11-177 15-15 18-18 18-32 18-42 18-45 18-49 18-51 18-55 * 

19-42 20-77 26-40 26-42 30-14 30-16 31-24 32-41 

PRTSPC 1-172 9-45 9-77 9-86 9-91 9-104 9-110 9-154 9-180 10-46 10-56 10-60 

10-71 10-75 15-13 15-20 15-28 15-36 15-47 15-55 15-60 16-63 16-70 16-93 ' 

19-44 19-53 26-82 

PRTTIM 1-194 22-43 34-13 

PRTTMD 1-177 35-16 t 

PRTTMV 1-176 11-169 

PRTTOD 1-194 22-19 

PRTTTP 1-173 9-108 • 

PRTUNM 1-174 9-200 11-182 19-57 

PRTUSE 11-32 35-5# 

PRTWRN 1-198 ^ 

PRVLST 1-41 24-67 24-71 27-16 27-26 

PRVOPT 1-37 

PUSHCF 1-161 < 

PVNPW 1-36 24-49 

PVON 1-81 

QHDMSl 1-53 12-14 i 

QHDMS2 1-53 12-15 

QUME 1-142 

QUMEFL 1-144 < 

QUMENO 1-144 

R50BUF 1-165 

R50CL0 4-S# € 

R50C0M 1-104 

R50DIR 1-161 

R50DK 1-194 18-25 € 

R50DSK 1-167 

R50DUP 1-162 

R50IND 1-161 ^ 

R50K52 1-162 

R50KED 1-162 

R50KEX 1-162 ( 

R50LD 1-167 

R50LD0 1-165 32-29 

R50LD7 1-167 t 

R50L0G 1-171 

R50M0N 1-195 

R50N0 1-168 t 

R50PIP 1-162 

R50SAV 1-161 

R50SY 1-161 18-11 i 

R50TSX 1-162 

( 



f 
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( 

< RC*FLG 1-44 26-15 26-17 26-19 26-59 26-83 26-9£ 

f 

< 



1 RDCMD 1-159 3-82 6-79 6-84 7-48 7-112 7-128 34-7 34-14 36-13 36-20 I 



c 

I 

( 
I 
( 
( 

i 

t 



R50TT 


1-190 






R50UCL 


1-162 






R50VIR 


1-163 






RC**SZ 


1-45 


25-13 


25-23 


RC*AEP 


1-44 


26-92 




RC*AGE 


1-44 


26-92 




RC*BAS 


1-43 


26-102 




RC*CNT 


1-43 


26-75 




RC*EXC 


1-44 


26-83 




RC*FLG 


1-44 


26-15 


26-17 


RC*GBL 


1-44 


26-19 




RC$LCQ 


1-46 


26-17 




RC*LEN 


1-45 


26-46 




RC*NAM 


1-44 


26-39 


26-41 


RC*OWN 


1-43 


26-68 




RC*PVT 


1-45 


26-59 




RC*USE 


1-44 


26-15 




RCBBAS 


1-45 


25-11 




RCBEND 


1-45 


25-14 




RDB 


1-134 


30-6 




RDBEND 


1-134 


30-3 




RDCMD 


1-159 


3-82 


6-79 


RDERM 


1-163 






REHTXT 


i-5i 


9-64 




RESDEV 


1-148 






RGNDSP 


25-12 


25-27 


26-11^ 


RNMS 


1-174 


11-107 




RONTXT 


1-179 


32-61 




RSR 


1-151 


9-98 




RSTPRV 


1-38 






RT**SZ 


1-134 


30-18 




RT*DEV 


1-134 


30-10 




RT*NAM 


1-134 


30-12 


30-15 


RUNDEV 


1-101 






RUNEMT 


1-163 






RUNHD 


1-159 






RUNMS 


1-195 






S**RUN 


1-80 


11-108 




S*HICP 


1-86 


11-210 




S*INWT 


1-87 


11-215 




S*IOFN 


1-82 


11-213 




S*IOWT 


1-140 


11-221 




S*LOW 


1-84 


11-214 




SfHSWT 


'-1-S8 


11-219 




3*0TFN 


1-82 


11-209 




S*OTLO 


1-82 


11-212 




S*OTWT 


1-87 


11-216 




S*QMIO 


1-80 


11-223 




S$QUSR 


1-140 


11-220 




S*RT 


1-84 


11-206 




S*SFWT 


1-87 


11-222 




SSSPCB 


1-141 


11-225 




S*SPDB 


1-141 


11-224 




S*SPND 


1-81 


11-218 




S*TMWT 


1-87 


11-217 




S*TTFN 


1-82 


11-208 
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S*TTSC 


1-S3 


11-207 








S*TWFN 


1-82 


11-211 








S9600 


1-87 










SCHAIN 


1-118 










SD*BAK 


1-121 










SD*DEL 


1-113 










SD*FLK 


1-114 










SD*HLD 


1-124 










SD*SNG 


1-123 










SD*WFM 


1-114 










SDBLK 


1-115 










SDBU 


1-121 










SDBUFl 


1-115 










SDCB 


1-129 


10-88 


12-7 


31-12 




SDCBND 


1-129 


10-89 


12-8 


12-18 


31-13 


SDCBS2 


1-135 


10-93 


12-12 


12-17 


31-26 


SDDVU 


1-134 


10-91 








SDFHD 


1-126 


12-10 








SDFLAG 


1-114 










SDFORM 


1-114 










SDNAME 


1-135 


31-21 








SDSFCB 


1-113 










SDSKIF 


1-121 










SEARCH 


1-159 


5-10 


11-25 






SERFLG 


1-55 










SETHD 


1-168 










SETMEM 


36-8 


36-17# 








SF*1ST 


1-124 










SF*BSY 


1-123 










SF*HLD 


1-124 










SFFILE 


1-141 










SFFLAG 


1-126 










SFFORM 


1-123 










SFID 


1-70 










SFNMBL 


1-123 










SFQLNK 


1-126 










SFUSER 


1-141 










SH**SZ 


1-68 










SH*FLG 


1-68 










SH*NAM 


1-68 










SH*RTN 


1-68 










SH«VAL 


1-68 










SHMTHl 


1-177 


20-59 








SHMTH2 


1-177 


20-60 








SHOALC 


6-11 


6-83 


19-5# 






SHOASN 


■6-9 


6-46 


18-5# 






SHOCL 


6-16 


6-SS 


10-5# 






SHOCMD 


6-52 


13-13# 








SHODAT 


6-63 


22-5# 








SHODEV 


6-7 


6-57 


6-68 


14~5# 




SHOHD 


1-192 


3-69# 


5-9 






SHOINS 


6-35 


6-93 


23- 5# 






SHOJOB 


6-13 


6-73 


11~11# 


34-6 




SHOKEY 


1-33 


3-87 








SHOMDM 


6-103 


21-5# 








SHOMEM 


6-18 


6-78 


8-5# 
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SHOMNT 


6-26 


6-98 


20-5# 




















SHOPRV 


6-37 


6-108 


27-5# 




















SHOQUE 


6-113 


12-6# 






















SHOREG 


6-31 


6-133 


25-5# 




















SHOSLE 


6-39 


6-123 


28- 5# 




















SHOSPL 


.6-20 


6-143 


31-6# 




















SHOSRT 


6-29 


6-118 


30- 5# 




















SHOSUB 


6-23 


6-138 


32-6# 




















SHOSYP 


6-148 


7-1 33# 






















SHOT I M 


6-158 


22-19# 






















SHOTRM 


6-14 


6-58 


6-153 


9-5# 


















SHOUSE 


6-163 


22-43# 






















SHOVAL 


7-5 
7-6S 


7-10 
7-73 


7-15 
7-78 


7-20 
7-83 


7-25 
7-88 


7-30 
7-93 


7-35 


7-40 


7-45# 


7-53 


7-58 


7-63 


SHOVER 


6-5 


6-168 


22-27# 




















SHOWVM 


6-41 


6-128 


33"5# 




















SHRRCB 


1-45 


25-19 






















SHRRCN 


1-45 


25-20 






















SHTMSG 


1-187 
























SHVTXl 


1-200 


33-17 






















SHVTX2 


1-200 


33-21 






















SHVTX3 


1-200 


53-29 






















SHVTX4 


1-200 


33-10 






















sizem 


1-190 
























SIZVAL 


1-164 
























SJOHD 


11 -7# 


11-24 






















SJSPPN 


1-200 


11-28* 


11-194» 




















SKPSPC 


1-26 
























SLCKFL 


28-26 


23-32 


28-38 


29~10# 


















SLKDOF 


1-49 
























SLKDON 


1-49 
























SLMXLN 


1-198 
























SMRSIZ 


1-138 


8-26 






















SO$NO 


1-69 
























SO*NVL 


1-69 
























SO*OCT 


1-69 
























SOPALC 


1-60 


3-71 


3-72 


6-S3# 


















SOP ALL 


3-70 


6-5# 






















SOPASN 


3-73 


5-8 


6-46# 




















SOPCL 


3-76 


3-79 


6-88# 




















SOPCMD 


3-77 


6-52# 






















SOP CON 


3-75 


6-57# 






















SOPCSH 


3-74 


7-1 16# 






















30PCTM 


3-73 


7-57# 






















SOPDAT 


1-60 


3-81 


6-63# 




















SOPDEV 


3-80 


6-6S# 






















SOPHIO 


3-83 


7-67# 






















SOP 1 10 


3-85 


7-62# 






















SOP INS 


3-84 


6~93# 






















SOPJMP 


6-42 


6-47 


6-53 


6-59 


6-64 


6-69 


6-74 


6-79# 


6-89 


6-94 


6-99 


6-104 




6-109 


6-114 


6-119 


6-124 


6-129 


6-134 


6-139 


6-144 


6-149 


6-154 


6-159 


6-164 




6-169 
























SOP JOB 


3-86 


3-121 


6~73# 




















SOPMB 


3-92 


7-4# 






















SOPMC 


3-90 


7-9# 






















SOPMDM 


3-94 


3-96 


6-103# 
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SOP MEM 


3-S9 


6-78# 




SOPMNT 


3-93 


6-98# 




SOP MR 


3-91 


7-14# 




SOPNDC 


3-95 


7-72# 




SOPPDF 


3-100 


7-S7# 




SOPPHI 


3-99 


7-82# 




SOPPLO 


3-98 


7-77# 




SOPPRI 


3-97 


7-97# 




SOPPRV 


3-101 


6-108# 




SOP PVR 


3-102 


7-92# 




SOPQO 


3-104 


7-19# 




SOPQl 


3-105 


7-24# 




SOPQIA 


3-106 


7-29# 




SOPQIB 


3-107 


7-34# 




SOPQl C 


3- 108 


7-39# 




S0PQ2 


3-109 


7-44# 




S0PQ3 


3-110 


7-52# 




SOPQUE 


3-103 


6-113# 




SOPREG 


3-111 


6-133# 




SOPSLE 


3-114 


6-123# 




30PSPL 


3~ii5 


6-143# 




SOPSRT 


3-112 


6-1 18# 




SOPSUB 


3-SS 


3-113 6-13S# 




SOPSYP 


3-116 


e.-i48# 




SOPTIM 


1-60 


3-118 6-158# 




SOPTRM 


3-117 


3-119 6"153# 




SOP USE 


3-120 


6-163# 




SOPVER 


3-122 


6-168# 




SOPVM 


3-123 


6-12B# 




SPACEl 


1-43 


26-62 




SPACE2 


1-174 


11-61 11-89 


11-96 


SPACE3 


1-174 


7-45 11-181 


26-91 


SPACES 


1-175 


11-129 




SPACE6 


1-178 


20-84 




SPACTV 


1-182 


1-183 




SPCF 


1-184 






SPDTXl 


1-173 


9-129 




SPFLK 


1-184 






SPFUL 


1-184 






SPGEMT 


1-184 






SPLACT 


1-187 






SPLCHN 


1-86 






SPLHD 


1-181 






SPLHLA 


1-172 






SPLPND 


1-189 






SPSNO 


1-182 


1-184 




SPUBUF 


1-63 






SPWFM 


1-182 


1-183 




SRTSIZ 


1-138 


8-46 




SRTSMS 


1-189 


8-45 




SRTTXT 


1-192 


6-28 




SSRMAP 


1-192 


8-25 




STB IT 


11-102 


li-206# 11-226 




STLGCN 


1-27 






STLGHD 


1-171 






STNAM 


11-113 


ll-230# 
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STPASK 


1-189 




STPBUF 


11-113» 


11-114 


STPFLG 


1-86 




SUBARO 


1-179 


32-42 


SUB TXT 


1-192 


6-22 


sues 


1-139 




SUMl 


1-188 


35-42 


3UM2 


1-188 


35-43 


SUM3 


1-lSS 


35-44 


SUM4 


1-188 


35-45 


SUMS 


1-189 


35-46 


SUM6 


1-189 


35-47 


SUM 7 


1-189 


35-48 


SUMS 


1-139 




SUMVEC 


35-21 


35-42# 


SUPCOD 


1 - 1 39 




SWPTX 


1-175 


11-120 


SXBPNT 


1-63 




SYASHD 


1-53 


IS" 16 


SYHDl 


1-174 


11-36 


SYHD2 


1-174 


11-37 


SYINDX 


1-146 




SYNAME 


I '■ 1 4 / 


16--lb 


SYPSWD 




7-134 


SYSAV 


1-159 




SYSDAT 


1-136 




SYTIMH 


1-136 




SYTIML 


1-136 




SYUNIT 


1-146 




TAB 


2-8# 




TALEMT 


1-108 




TBLOVF 


1-168 




TECO 


1-67 




TKISEC 


1-138 




TKIVAL 


1-136 




TM*AUT 


1-51 


9-120 


TM*C13 


1-54 


10-40 


TM*CDS 


1-50 


7-122 


TM*CEN 


1-50 


7-124 


TM*CLO 


1-52 


10-14 


TM*CL1 


1-52 


10-27 


TM*CL2 


1-52 


10-28 


TM*CL3 


1-52 


10-43 


TM*CL4 


1-52 


10-58 


TM*CL5 


1-52 


10-95 


TM*CL6 


1-52 


10-108 


TM*CL7 


1-52 


10-20 


Tn*CLe 


1-53 


10-23 


TM*CNG 


1-50 


7-118 


TM*GBL 


1-43 


26-64 


TM*HPE 


1-50 


7-111 


TM*HPR 


1-49 


7-108 


TM*IN1 


1-35 


23-10 


TM*IN2 


1-35 


23-11 


TM$KED 


1-34 


28-25 


TM*LCL 


1-43 


26-61 



11~251# 



35-49 35-50 
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138 



10-73 
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TM*LPR 


1-49 


7-104 




TM*NAD 


1-54 


19-21 




TM*NNR 


1-35 


25-36 




TM*NO 


1-34 


29-20 




TM*NSD 


1-54 


31-15 




TM*NSP 


1-33 


7-136 




TM*OFF 


1-33 


23-17 




TM$ON 


1-33 


23-19 




TM*PR1 


1-49 


7-97 




TM«PR2 


1-49 


7-100 




TM*PVA 


1-38 


27-11 




TMSPVC 


1-3S 


27-22 




TM*PVL 


1-39 


24-59 




TM*RD1 


i-43 


26-33 




TM*RD2 


1-43 


26-34 




TM*SDN 


1-54 


31-20 




TM*SL1 


1-33 


23-11 




TM$SUB 


1-34 


23-37 




TM*TTY 


1-34 


28-31 




TMIDLH 


1-65 


35-45 




TMIOH 


i-65 


35-47 




TMIOWH 


1-64 


35-43 




TMITXT 


1-202 


21-18 




fMLTXl 


i~20y: 


21-21 




TMOTXT 


1-202 


21-24 




TMSWPH 


1-65 


35-48 




TMSWTH 


1-65 


35-44 




TMTDTH 


1-64 


1-lSS 


35-11 


TMTOTL 


1-64 


1-188 


35-12 


TMUSRH 


1-64 


35-42 




TOTMMS 


1-192 


8-7 




TOTON 


1-86 






TOT XT 


1-171 






TRGRET 


1-139 






TRMHDl 


1-50 


9-14 




TRMHD2 


1-50 


9-15 




TRMSTR 


1-161 






TSKSHO 


l-5# 


1-26 




TSR 


1-151 






TSXLN 


1-139 






TSXSIT 


1-139 






TSXSMS 


1-193 


8-32 




TSXVER 


1-36 


22-27 




TSXVRS 


1-32 


22-28 




TXTCl 


i-86 


9-173 




TXTCL 


1-85 


9-175 




UC*MDC 


1-158 






UC*NDC 


1-158 






UCHAN 


1-106 






UCIDEF 


1-58 






UC I SPC 


1-90 






UCLBLK 


1-157 


13-17 




UCLCMD 


1-26 


6-51# 




UCLDAT 


1-157 






UCLNAM 


1-111 






UERSEV 


1-128 







35-19 
35-20 
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UFORM 

UFPTRP 

UHIMEM 

UKMNAM 

UnSSnS 

UMSYTP 

UPTMMS 

USPLCH 

USRMMS 

USRSTK 

USTART 

UTRPAD 

VCORTM 

VCSHNB 

VHIPCT 

VI MAGE 

VINTIO 

VMAXMC 

VMXMRB 

VMXMSG 

VOFFTM 

VONTM 

VPRIDF 

yPRIHI 

VPRILO 

VPRIVR 

VQUANO 

VQUANl 

VQUAN2 

VQUAN3 

VQUNIA 

VQUNIB 

VQUNIC 

VSWPFL 

VTIOO 

VTIOFL 

VTIONO 

VT200 

VT2007 

VT2008 

VT20FL 

VT20N0 

VT52 

VT52FL 

VT52N0 

VTMIN 

VTMLOC 

VTMOUT 

VUSPHN 

WILDFL 

WLDNAM 

WTMS 

XAREA 1-160 16-21 16-26 16-32 33~S 33-15 33 

YESTXT 

ZCLR 



1-98 








1-113 








1-101 








1-79 








1-192 


8-13 






1-83 


8-14 


8-21 




1-187 


35-10 






1-86 








1-193 


8-59 






1-62 








1-97 








1-61 








1-133 


7-57 






1-89 


7-120 


7-125 




1-130 


7-67 






1-96 








1-122 


7-62 






1-34 


7-9 






1-34 


7-14 






1-34 


7-4 






1-20! 


21-16 






1-201 


21-13 






1-78 


7-87 






I -42 


7 "82 


7 109 




1-42 


7-77 


7-105 




1-78 


7-92 






1-129 


1-130 


7-19 




1-130 


7-24 






1-130 


7-44 






1-129 


1-130 


7-52 




1-130 


7-29 






1-122 


7-34 






1-122 


7-39 






1-63 


36-17 






1-142 








1-144 








1-144 








1-141 








1-141 








1-141 








1-145 








1-145 








1-142 








1-143 








1-120 








1-201 


21-19 






1-201 


21-22 






1-201 


21-25 






1-198 


9-60 


21-7 




1-66 








2-12# 








1-174 


11-110 






1-160 


16-21 


16-26 


16-32 


1-173 


9-167 


26-87 


26-96 


1-151 
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. . CMI 


16-21 


16-26 


16-32 


33-8 


33-15 


33-27 














. . CM2 


16-21 


16-21 


16-26 


16-26 


16-26 


16-26 


16-32 


16-32 


16-32 


16-32 


33-8 


33-8 




33-15 


33-15 


33-15 


33-15 


33-15 


33-27 


33-27 


33-27 


33-27 


33-27 






. . CM3 


16-98 


33-33 






















. . CMS 


6-6 


6-8 


6-10 


6-12 


6-15 


6-17 


6-19 


6-21 


6-22 


6-24 


6-25 


6-27 




6-28 


6-30 


6-32 


6-36 


6-38 


6-40 


7-45 


7-47 


7-97 


7-100 


7-103 


7-104 




7-107 


7-108 


7-111 


7-118 


7-122 


7-124 


7-127 


7-136 


7-138 


8-7 


8-13 


8-20 




3-23 


3-25 


S~32 


8-39 


8-45 


3-51 


3-59 


8-64 


9-13 


9-14 


9-15 


9-43 




9-65 


9-81 


9-120 


9-126 


9-132 


9-134 


9-141 


9-143 


9-146 


9-150 


9-152 


9-173 




9-175 


9-178 


9-186 


9-192 


9-202 


9-204 


9-211 


10-14 


10-20 


10-23 


10-27 


10-28 




10-40 


10-43 


10-58 


10-73 


10-95 


10-108 


10-110 


10-114 


10-124 


10-128 


11-36 


11-37 




11-60 


11-61 


11 69 


1 1 -73 


11-85 


11-88 


11-39 


11-96 


11-111 


11-114 


11-120 


11-127 




11-129 


11-133 


11-134 


11-140 


11-141 


11-157 


11-160 


11-162 


11-166 


11-173 


11-181 


11-183 




12-14 


12-15 


12-21 


13-33 


14-9 


14-10 


14-11 


15-68 


16-21 


16-26 


16-32 


18-6 




18-16 


18-19 


18-20 


18-30 


18-33 


18-34 


18-43 


18-46 


18-52 


18-58 


18-60 


18-61 




19-21 


1 9-27 


19-28 


19-29 


19-39 


19-61 


20-59 


20-60 


20-78 


20-84 


20-132 


20-144 




20-147 


20-159 


20-166 


21-5 


21-10 


21-11 


21-12 


21-15 


21-18 


21-21 


21-24 


21-27 




22-9 


22-12 


22-20 


22-27 


22-33 


22-36 


23-10 


23-11 


24-21 


24-31 


24-36 


24-59 




24-72 


24-76 


25-36 


26-33 


26-34 


26-53 


26-58 


26-61 


26-62 


26-64 


26-85 


26-87 




26-91 


26-94 


26-96 


26-100 


26-108 


27-11 


27-17 


27-18 


27-22 


27-27 


28-11 


28-20 




28-42 


29-14 


29-20 


29-24 


30-17 


30-22 


31-15 


31-20 


31-25 


31-29 


32-24 


32-42 




32-51 


32-55 


32-61 


32-67 


32-68 


33-8 


33-10 


33-15 


33-17 


33-21 


33-27 


33-29 




33-34 


35-10 


35-17 


35-24 


36-19 


36-33 


36-35 


36-46 


36-55 


36-56 


36-59 


37-8 


. . CM7 


16-26 


16-32 






















CLOSE 


l-20# 


16-98 


33-33 




















CSIGE 


1-18# 
























CSISP 


1-16# 
























DATE 


1-19# 


22-5 






















ENTER 


1~21# 
























EXIT 


1-21# 


36-40 






















FPROT 


l-22# 
























eTIM 


1-19# 
























GTLIN 


1-19# 
























GVAL 


l-22# 
























HERR 


l-22# 


16-99 


33-35 




















LOOKU 


l-20# 


16-21 


33-8 




















PRINT 


1~20# 


6-6 


6-8 


6-10 


6-12 


6-15 


6-17 


6-19 


6-21 


6-22 


6-24 


6-25 




6-27 


6-28 


6-30 


6-32 


6-36 


6-38 


6-40 


7-45 


7-47 


7-97 


7-100 


7-103 




7-104 


7-107 


7-108 


7-111 


7-118 


7-122 


7-124 


7-127 


7-136 


7-138 


8-7 


8-13 




8-20 


8-23 


8-25 


8-32 


8-39 


8-45 


S-51 


8-59 


8-64 


9-13 


9-14 


9-15 




9-65 


9-120 


9-126 


9-173 


9-175 


9-178 


9-186 


9-192 


9-202 


9-204 


9-211 


10-14 




10-20 


10-23 


10-27 


10-28 


10-40 


10-43 


10-58 


10-73 


10-95 


10-108 


10-128 


11-36 




11-37 


11-61 


11-69 


11-89 


11-96 


11-111 


11-114 


11-120 


11-127 


11-129 


11-140 


11-141 




11-162 


11-166 


11-173 


11-181 


11-183 


12-14 


12-15 


12-21 


13-33 


14-9 


14-10 


14-11 




15-68 


18-6 


18-16 


18-20 


18-30 


18-34 


13-43 


18-61 


19-21 


19-27 


19-28 


19-29 




19-61 


20-59 


20-60 


20-84 


20-132 


20-159 


20-166 


21-5 


21-11 


21-12 


21-15 


21-18 




21-21 


21-24 


21-27 


22-9 


22-12 


22-20 


22-27 


22-36 


23-10 


23-11 


24-21 


24-36 




24-59 


24-76 


25-36 


26-33 


26-34 


26-58 


26-61 


26-62 


26-64 


26-85 


26-87 


26-91 




26-94 


26-96 


26-100 


26-108 


27-11 


27-17 


27-18 


27-22 


27-27 


28-11 


28-20 


28-42 




29-20 


29-24 


30-17 


30-22 


31-15 


31-20 


31-25 


31-29 


32-24 


32-42 


32-51 


32-61 




32-67 


32-68 


33-10 


33-17 


33-21 


33-29 


33-34 


35-10 


35-17 


35-24 


36-19 


36-33 




36-35 


36-46 


36-55 


36-56 


36-59 


37-8 














PURGE 


1~17# 
























PVAL 


l-22# 
























READW 


1-17# 


16-26 


16-32 




















REOPE 


1-18# 
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TSKSHO 


— Keyboard S.HOW Command MACRO 


V05. 05 


Friday 20- 


-Jan-S9 10: 


51 Page M- 


-2 










Cross reference 


table <CREF 


V05. 05) 






















. SAVES 
. SERR 


1~1S# 
i-22# 


16-20 


33-7 






















. SPFUN 


1-19# 


33-15 


33-27 






















. SRESE 
. TTOUT 


i-16# 
1-16# 


























. TTYIN 


l-i7# 
























TTYOU 


1-17# 


9-43 


9-81 


9-132 


9-134 


9-141 


9-143 


9-146 


9-150 


9-152 


10-110 


10-114 






10-124 


11-60 


11-73 


11-85 


11-88 


11-133 


11-134 


11-157 


11-160 


18-19 


18-33 


18-46 






18-52 


18-58 


18-60 


19-39 


20-78 


20-144 


20-147 


21-10 


22-33 


24-31 


24-72 


26-53 




. WRITW 


29-14 

1-21# 


32-55 
























CLOP 


IG-M?* 


10-154 


10-155 


10-156 


10-157 


10-153 


10-159 


10-160 


10-161 


10-162 


10-163 


10-164 




10-165 


























CHDDEF 


3-47# 


3-70 


3-71 


3-72 


3-73 


3-74 


3-75 


3-76 


3-77 


3-78 


3-79 


3-80 






3-81 


3-82 


3-83 


3-84 


3-85 


3-86 


3-87 


3-88 


3-89 


3-90 


3-91 


3-92 




3-93 


3-94 


3-95 


3-96 


3-97 


3-93 


3-99 


3-100 


3-101 


3-102 


3-103 


3-104 






3-105 


3- 1 06 


3-107 


3-108 


3-109 


3-110 


3-111 


3-112 


3-113 


3-114 


3-115 


3-116 






3-117 


3-118 


3-119 


3-120 


3-121 


3-122 


3-123 


11-8 












FABORT 
FERR 


3-15# 
3-4# 


5-18 


5-19 


11-27 




















FWARr^ 


3~23# 
























TQLDEF 


3-35# 


3-69 


U-7 






















TBLEND 


3-61# 


3-I2'1 


11 -9 
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